Списки с указателями!(Delphi)

[Npwas]

ЛЮДИ НУ МОЖЕТЕ ХОТЬ КТО-НИБУДЬ ПОМОЧЬ, Я УЖЕ 5-ТЫЕ СУТКИ ДОЛБЛЮСЬ И НЕ КАК НЕ МОГУ ТОЛКОМ ПРОДВИНУТЬ С ПОСТРОЕНИЕМ СПИСКО С ПОМОЩЬЮ УКАЗАТЕЛЕЙ! ВОТ ТОК ЧУТОК ПРОДВИНУЛСЯ НО ВСЕРАВНО ЛАЖА! ВОТ СУТЬ ПРОБЛЕМУ ПОЯВИВШЕЙСЯ В МОЕМ НУДНОМ И МЕДЛЕННОМ ПРОДВИЖЕНИИ:

У меня ошибка в том, что выводить лишь только последний эл-т введенный в список!!! Как сделать чеб все выводило?!
Вот код программы:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

TYPE
  Ukazatel = ^S;
  S = Record
       Data : integer;
       Next : Ukazatel ;
  End;

VAR
  x,u: Ukazatel;
  g,p:integer;

{ПРОЦЕДУРА ВВОДА}
Procedure Init(Digit : integer);
Var
  x, y : Ukazatel;
BEGIN
  u := Nil;
  New(y);
  y^.Next := Nil;
  y^.Data := Digit;
  if u=Nil
   then
    u := y
  else
   x^.Next := y;
  x := y
END;
{ТЕЛО}
BEGIN
 g:=1;
  While g<>0 do
   begin
     Writeln('1.Vvod');
     Writeln('2.Vivod');
     Writeln('3.Vihod');
     Readln(g);
     Writeln;
     case g of
        1: Begin
             Write('Vvedite chislo:  ');
             Readln(p);
             Init(p)
           End;
        2: Begin
             While u<>nil do
               begin
                Write(u^.Data, '     ');
                u := u^.Next
               end;
              writeln
           End
     end
   end;
 Writeln('The End');
 Readln
END.

[GetMax]

Подправил процедуру заполнения списка. Должно работать

Type
  pList = ^tList;
  tList = record
    value:integer;
    next:pList;
  end;
Var
  lst:pList;
  Digit:Integer;
Procedure Input(var spis1:pList;dig:integer);
Var
  tmp:pList;
Begin
  if spis1 = nil then
  Begin
    new(spis1);
    tmp:=spis1
  End
  Else
  Begin
    tmp:=spis1;
    while tmp^.next <> nil do tmp:=tmp^.next;
    new(tmp^.next);
    tmp:=tmp^.next;
  End;
  tmp^.next:=nil;
  tmp^.value:=dig;

End;
BEGIN
 g:=1;
  While g<>0 do
   begin
     Writeln('1.Vvod');
     Writeln('2.Vivod');
     Writeln('3.Vihod');
     Readln(g);
     Writeln;
     case g of
        1: Begin
             Repeat
                Readln(Digit);
               if Digit <> 0 then Input(lst,Digit) //заполняем список до нулевого элемента
               Until Digit = 0 ;
           End;
        2: Begin
             while lst <> nil do
             Begin
                Writeln(lst^.value);
                lst:=lst^.next
             End;
              writeln
           End
     end
   end;
End.

[Npwas]

Спасиб за помощь!!! Жаль ток чет не могу те на весы нажать!!! У меня тут чето если один раз человеку уже нажимала на весы то 2-ой раз не могу уже!!! Видимо уже когда успел нажать!!! СПС!!!