Untitled

program listy;
uses crt;
type wskelement=^element;
     punkt=record
     x,y:real;
     end;
     element=record
     p:punkt;
     nr:byte;
     n:wskelement;
     end;
var  lista,e:wskelement;
     i:integer;
begin
     randomize;
     lista:=NIL;
     for i:=1 to 10 do
         begin
         new(e);
         e^.p.x:=random;
         e^.p.y:=random;
         e^.nr:=i;
         e^.n:=lista;
         lista:=e;
         end;
{Writeln('podaj wspolrzedna punktu ktory ma zostac dodany do listy');
new(e);
read(e^.p.x);
read(e^.p.y); }

writeln('lista');
while e<>nil do
begin

writeln(e^.nr:2,' ',e^.p.x:3:3,' ',e^.p.y:3:3);
e:=e^.n;
end;
writeln('Dostepna pamiec :',memavail);
while lista<>nil do
begin
e:=lista^.n;
dispose(lista);
lista:=e;
end;
writeln('Dostepna pamiec :',memavail);
readln;
end.