program punta

informatica

program punta;

uses crt;

type

parola = record

nome:string[15];

taglia : byte;

var

puntat : pointer;

a,b,c : ^integer;

begin

clrscr;

new(p1); 

mark(puntat);

new(b);

new(c);

release(puntat);

if maxavail < sizeof (puntat) then

write(' memoria non trovata');

else

begin

getmem(puntat, sizeof (puntat));

freemem(puntat, sizeof (puntat));

end;

writeln(memavail, ' bytes disponibili');

writeln('La parte di memoria più ampia è ', maxavail, 'bytes');

readln;

end.