while not eof паскаль

Ответ от Jurii[гуру]
s := ''; x1:=0; x2:=0;
repeat
read(f, ch); if ch<>#32 then s:=s+ch;
until eoln(f) or (ch=#32) or eof(f);
if not eoln(f) and not eof(f) then begin
repeat
read(f, ch); if ch<>#32 then x1:=x1*10+ord(ch)-48;
until eoln(f) or not(ch in ['0'..'9']) or eof(f);
if not eoln(f) and not eof(f) then
repeat
read(f, ch); if ch<>#32 then x2:=x2*10+ord(ch)-48;
until eoln(f) or not(ch in ['0'..'9']) or eof(f);
end;
if not eof(f) then readln(f);