Динамические структуры Опции

[forMator]

Всем привет!
Задача. Создать список целых чисел с занесением элементов в конец списка. распечатать полученный список.

У меня выводится только последний элемент списка!А ошибку найти не получается... Подскажите пожалуйста что делать

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
type pspis=^spisok;
spisok=record
data:integer;
next:pspis;
end;
Var i,n,a:integer;
x,y,u:pspis;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  u:=nil;
  writeln('n=');readln(n);
  for i:=1 to n do
  begin
  new(y);
  write('a=');readln(a);
  y^.data:=a;
  y^.next:=nil;
  if u=nil then u:=y else x^.next:=y;
  x:=y;
  end;
  writeln('vvedenii spisok:');
  while y<>nil do begin
  writeln(y^.data);
  y:=y^.Next;
  end;
  readln;
end.

[volvo]

  ...
  writeln('vvedenii spisok:');

  y := u; // <--- Вот это не забывай:
  while y<>nil do begin
    writeln(y^.data);
    y:=y^.Next;
  end;
  ...