Дан файл f, содержащий целые числа. Найти максимальное из чисел и записать результат в новый файл

procedure TForm1.Button1Click(Sender: TObject);
 
var
f,nf:textfile;
a:array[1..10] of integer;
i,n,max:integer;
st,st1:string;
begin
 
Assignfile(f, 'input.txt');
Reset(f);
read(f,st);
memo1.Lines.Add(st);
for i:=1 to n do
read(f,a[i]);
closefile(f);
max:=a[i];
for i:=1 to n do begin
if (a[i]>=max) then max:=a[i];
end;
Assignfile(nf, 'output.txt');
rewrite(nf);
memo2.Lines.Add(st1);
write(nf,'Max=',max);
closefile(nf);
end;

procedure TForm1.Button1Click(Sender: TObject);
var txt_start,txt_finish:textfile;
    i,n,max:Integer;
    mas:array [1..100] of Integer;
begin
 AssignFile(txt_start,'1.txt');
 AssignFile(txt_finish,'2.txt');
 Reset(txt_start);
 read(txt_start,n);
 for i:=1 to n do
  begin
    read(txt_start,mas[i])
  end;
 max:=mas[1];
 for i:=1 to n do
  begin
    if (max<mas[i]) then
      begin
       max:=mas[i];
      end;
  end;
 rewrite(txt_finish);
 writeln(txt_finish,max);
 CloseFile(txt_start);
 CloseFile(txt_finish) ;
end;

memo1.lines.add(a[i]);

memo1.lines.add(a[i]);

Memo1.Lines.LoadFromFile('1.txt');
Memo1.Lines.LoadFromFile('2.txt');