Найти сумму двух наименьших чисел среди элементов двух файлов

uses crt;
var
     f1,f2 : text;
     n1,n2,m1,m2,a1,a2 : Integer;
Begin
clrscr;
     assign(f1,'C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\1.txt');
     reset(f1);
     m1:=0;
     while (not eof(f1)) do
       Begin
        read(f1,a1[m1]);
        m1:=m1+1;
       end;
       close(f1);
       write(m1);
end.

begin
     assign(f1,'C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\1.txt');
     reset(f1);
     if eof(f1) then begin Close(f1); WriteLn('Первый файл пуст! До свидания!'); Halt(1) end;
     Read(f1, min1);
     while (not eof(f1)) do begin
         read(f1,a);
         if a<min1 then min1:=a;
      end;
      close(f1);
     
     assign(f1,'C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\2.txt');
     reset(f1);
     if eof(f1) then begin Close(f1); WriteLn('Второй файл пуст! До свидания!'); Halt(1) end;
     Read(f1, min2);
     while (not eof(f1)) do begin
         read(f1,a);
         if a<min2 then min2:=a;
      end;
      close(f1);
      WriteLn(' min1 = ', min1,' min2= ',min2,' summa = ', min1+min2)
end.

var
  f: Text;
  m: array [1..2] of Integer;
  j, t: Integer;
begin
  for j:=1 to 2 do begin
    Assign(f,Chr(Ord('0')+j)+'.txt'); Reset(f);
    Read(f,m[j]);
    while not SeekEoF(f) do begin
      Read(f,t); if t<m[j] then m[j]:=t;
    end;
    Close(f);
  end;
  WriteLn(m[1]+m[2]);
end.