Witam na zajęciach z programowania dostaliśmy do zrobienia programik, który ma utworzyć listę zmiennych a potem ją wyświetlić... W szkole nam nie wychodziło to dostaliśmy do domu... Coś tam z kumplem naskrobałem ale wypisuje nam tylko pierwszą zmienną którą podamy a reszty nie ma... Prosiłbym o małą pomoc

Kod:
program ZmienneDynamiczne;
uses crt;
type
 w=^element;
 element=record
 wart:integer;
 nast:w;

end;


 var nowy, lista:^element;
 procedure TworzEListy(poprz:element;wart:integer);


 begin
  new(nowy);
  nowy^.wart:=wart;
  poprz.nast:=nowy;

 end;

 procedure tliste();
 var w:integer;
 begin
    new(lista);
  readln(w);
  lista^.wart:=w;
  nowy:=lista;
  readln(w);
 while w<>0 do

 begin
   TworzEListy(nowy^,w);
   readln(w);
 end;
end;

 procedure WListe;
 begin
  writeln('wypisanie listy');
  writeln(lista^.wart);
  nowy:=lista^.nast;
  while nowy <> nil do
   begin
   writeln(nowy^.wart);
   nowy:=nowy^.nast;
   end;
 end;


begin
 tliste;
 writeln('utworzono liste');
 Wliste;
 readln;
 clrscr;

end.
Uwaga: To jest stary temat
Ta dyskusja jest starsza niż 90 dni. Informacje w niej zawarte mogą już nie być aktualne