1 578
editací
Změny
bez shrnutí editace
Reset(f);
{ Čte zpětně čísla.SeekEoln vrací TRUE, jestliže není více čísel na
právě aktivním řádku; SeekEof vrací TRUE jestliže není další text (jiný než mezery) v souboru. }
while not SeekEof(f) do
begin