readln cita dovtedy kym nenacita znaky chr(10) chr(13) .
eoln sak funguje dobre. proste to vrati hodnotu bud true alebo false ak je pred znakom konca riadku.
to ze vybere prvy riadok len to je chyba v cykle
sak si daj vacsiu podmienku.
Kód:
while (not eoln(subor))or(riadok<10)do begin
if(eoln(subor)) inc(riadok);
.......
......
end;