Pascal - načtení ze záznamu

[Petr2000]

Ahoj, potřeboval bych poradit s procedurou pro načtení
neznámých ze záznamu.

Mám to napsané takto:
procedure NACTENI;
begin
n:=filesize(SC);
reset(SC);
for i:=0 to n-1 do begin
read(SC, recept);
seek(SC,i);
recept.serazeni[i+1]:=recept.pocetsurovin end;
for i:=1 to n do begin write(recept.serazeni[i], ', ') end;
writeln();readln();readln();end;

Ale píše mi to samé nuly kromě posledního čísla a to ještě
špatně.
Nevíte co s tím?
Děkuji

[Reklama]

[faraon]

Vítej na PC-help.

K čemu je tam ten seek(SC,i);? Předpokládám že data jsou uložená sekvenčně, takže je můžeš sekvenčně i načíst, nepotřebuješ skákat v souboru sem a tam, operační systém si to při čtení posouvá sám.

[Petr2000]

A jak to zapsat? Nějak takto?
for i:=1 to n do begin reset(SC);
while not eof(SC) do begin
read(SC, recept);if recept.strana=i then recept.serazeni[i]:=recept.pocetsurovin end;end;
for i:=1 to n do begin write(recept.serazeni[i], ', ') end; writeln();

Ani tak mi to nefunguje. Potřebuji si je nejdříve načíst
popořadě do řetězce, abych je mohl uspořádat podle velikosti
a následně celý uspořádaný záznam vypsat.

Dodatečně přidáno po 1 hodině 23 minutách 22 vteřinách:
Ještě jsem to zkusil i takto, ale výsledek se nezměnil.

procedure NACTENI;
begin
n:=filesize(SC);
i:=1;
reset(SC);
while not eof(SC) do begin
read(SC, recept);
recept.serazeni[i]:=recept.pocetsurovin;
i:=i+1 end;

for i:=1 to n do begin write(recept.serazeni[i], ', ') end; writeln();readln();readln();end;

Výsledek:
0, 0, 0, 0, 0, 0, 6,

Nevíte co s tím?