Írnék egy programot amibe van egy szövegfájl a szövegfájlban 2 szám space-el elválasztva, de vmiért a második számot nem olvassa be. Mi a hiba az alábbi forráskódban amit lejjebb láthattok?

program geswge;

uses crt;

var

f:text; elso,masodik:integer; os:integer;

begin

clrscr;

assign(f,\'C:\\xy.txt\');

reset(f);

while not(eof(f)) do begin

while not(seekeoln(f)) do begin

readln(f,elso);

end;

while not(seekeoln(f)) do begin

readln(f,masodik);

end;

end;

close(f);

os:=(elso+masodik);

writeln(összeg: \',os);

delay(250);

end.