Matematické Fórum

Ahoj,
mohl by mi někdo pomoci?Probíráme spojové seznamy v Pascalu a máme vytvořit program,kde načteme posloupnost  čísel ukončenou nulou a program(úloha je na jednosměrný spojový seznam s přidáváním na začátek)nám vypíše posloupnost obráceně.Proceduru na obrácení posloupnosti už mám.Vypadá nějak takhle:

Program spojaky;
type PT=^T;
T=record
val:integer;
next:PT;
end;

procedure revert(var first:PT);
var p,q:PT;
begin
if (first<>nil) then
begin
p:=first^.next;
first^.next:=nil;
end;
while (p<>nil) do
begin
q:=p^.next;
p^.next:=first;
first:=p;
p:=q;
end;
end;

begin  {tělo programu}
end.

Mohl byste mi někdo poradit,jak načítat prvky a se zbytkem programu?Díky