Someone

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 9 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);
     e^.n:=lista;
     lista:=e;

     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;
     while lista<>nil do
           begin
           e:=lista^.n;
           dispose(lista);
           lista:=e;
           end;
     readln;
end.