Найти наибольшее число в файле

sum:=0;{сумма прочитанных чисел в файле}
kol:=20;{колво чисел}
Assign (f, '...'){связываю файл f с местом на диске}
Reset(f);
While not EOF(f) do
begin 
readln(f,n){прочитать число n из файла}
sum:=sum+n;
kol:=kol+1;
end;
Close(f);
sa:=sum/kol;{средняя арифметическая равна...}
writeln('srednee arifmetichescoe: ', sa);

var
 s,s1:string;
 f:text;
 a:array[1..20] of integer;
 i,j,sum,max,chis,tmp,errf:integer;
begin
 writeln('imja faila');
 readln(s1);
 assign(f,s1+'.txt');
 reset(f);
 readln(f,s);
 s:= s + ' ';
 while pos(' ',s) > 0 do begin
   s1:= copy(s,1,pos(' ',s)-1);
   delete(s,1,pos(' ',s));
   val(s1,chis,errf);
   if chis > max then
     max:= chis;
   sum:= sum + chis;
   inc(i);
   a[i]:= chis;
 end;
 close(f);
 assign(f,'lalala.txt');
 rewrite(f);
 writeln('max - ',max);
 writeln('sr.ar - ',sum/20:0:2);
 for i:= 1 to 19 do
   for j:= i+1 to 20 do
     if a[i] > a[j] then begin
       tmp:=a[i];
       a[i]:= a[j];
       a[j]:= tmp;
     end;
 for i:= 1 to 20 do
   write(f,a[i],' ');
 close(f);
end.

uses crt;
const n=20;
var f,g:text;
    a:array[1..n] of integer;
    i,j:byte;
    x,mx:integer;
    sr:real;
    name,s:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(name);
name:=name+'.txt';
assign(g,name);
rewrite(g);
read(f,mx);
sr:=mx;
a[1]:=mx;i:=1;
while not eof(f) do
 begin
  read(f,x);
  sr:=sr+x;
  if x>mx then mx:=x;
  i:=i+1;
  a[i]:=x;
 end;
close(f);
writeln('Максимальное=',mx);
writeln('Среднее=',sr/n:0:2);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
for i:=1 to n do
write(g,a[i],' ');
close(g);
write('Файл переписан!');
readln
end.

writeln('imja faila');
 readln(s1);