Cоздать список целых чисел и вывести на экран — Pascal(Паскаль)

var a, p, first:TPElement; b:Integer;
begin
      new(a);
      readln(b);
      a^.Data:=b;
      a^.Next := nil;
      p := a;
      first := a;
      while (b <> 0) do
      begin
        New(a);
        Readln(b);
        a^.Data := b;
        p^.Next := a;
        a^.Next := nil;
        p := a;
      end;
      repeat
        writeln(first^.data,' ');
        first:=first^.Next;
      until first.Next=nil;

      Readln;
end.