program mutatok;
type
  egesz_mutato = ^integer;
var 
  p_egesz: egesz_mutato;
begin
  Writeln('A lefoglalas elott: ',memavail);
  {Szabad memória: 262080}

  {A memória lefoglalása}
  New(p_egesz);
  Writeln('A lefoglalas utan: ',memavail);
  {Szabad memória: 262064}

  {Értékadás}
  p_egesz^ := 5;

  {A memória felszabadítása}
  Dispose(p_egesz);
  Writeln('A felszabaditas utan: ',memavail);
  {Szabad memória: 262080}
  Readln;
end.