Всем привет!
Задача. Создать список целых чисел с занесением элементов в конец списка. распечатать полученный список.
У меня выводится только последний элемент списка!А ошибку найти не получается... Подскажите пожалуйста что делать
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.
...
writeln('vvedenii spisok:');
y := u; // <--- Вот это не забывай:
while y<>nil do begin
writeln(y^.data);
y:=y^.Next;
end;
...