Přidání ze souboru do spojáku – Pascal – Fórum – Programujte.com

Ahoj,

potřeboval bych přidat hodnoty ze souboru do spojového seznamu..

// Pridani hodnoty ze souboru do spojaku
procedure PridejZeSouboru(var P:TSpoj;Hodnota:string);
begin
 new(R);
 R^.Dalsi:=P;
 R^.Obsah:=Hodnota;
 P:=R;
end;

// Pruchod souborem
assign(SouborHodnot, NazevSouboruHodnot);
reset(SouborHodnot);
while not eof (SouborHodnot) do
begin
 readln(SouborHodnot,Hodnota);
 if Hodnota <> '' then
 begin
  PridejZeSouboru(P,Hodnota);
 end;
end;

Udělal jsem si na to proceduru, ale když dám potom cyklus while, kde si chci vypsat obsah seznamu, tak mi to vypíše několikrát to samý..

Předem díky

Aaah už jsem to vyřešil pardooon.