Файлы. Дан файл, содержащий числа. Найти максимальный элемент каждой строки

uses crt;
var f: text;
    s,sc: string;
    i,j: byte;
    ch,max,k: integer;
begin
assign(f,'C:\in.txt');
reset(f);
while not eof(f) do
      begin
      readln(f,s); s:=s+' ';
      inc(i); j:=0;
      while pos(' ',s)<>0 do
            begin
            sc:=copy(s,1,pos(' ',s)-1);
            delete(s,1,pos(' ',s));
            val(sc,ch,k);
            inc(j);
            if j=1 then max:=ch;
            if ch>max then max:=ch;
            end;
      writeln(i:3,' строка, макс. элемент ',max:5);
      end;
close(f);
readln;
end.

function readmax(var afile:text):integer;
var i:integer;
begin
  readmax:=0;
  while not eoln(afile) do begin
    read(afile,i);
      if i>readmax then readmax:=i;
  end;
end;
 
var i:integer;f:text;
begin
  assign(f,'C:\Files for Program Pascal\Filenumbers.txt');
  reset(f);
  i:=0;
  while not eof(f) do begin
    inc(i);
    writeln('строка  ',i,'  макс. число ',readmax(f));
    readln(f);
  end;
  close(f);
  readln
end.