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

Формулировка задачи:

Доброго времени суток, помогите с программой: есть два файла в них находятся числа нужно найти сумму наименьших из них. Я нашёл количество чисел, теперь мне нужно как то перенести эти числа в массив, для поиска минимального, вот как это сделать?

                    Листинг программы
                
 
                        
                          
                    
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.

Объяснение кода листинга программы

Открывается файл на чтение с адресом C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\1.txt и связывается с переменной f1
Проверяется, не пуст ли файл f1. Если он пуст, выводится сообщение Первый файл пуст! До свидания!, файл f1 закрывается, и программа завершает работу с кодом ошибки 1
Считывается первый элемент файла f1 и сохраняется в переменной min1
Пока в файле f1 есть несчитанные элементы, считывается значение в переменную a. Если значение a меньше, чем значение переменной min1, значение a сохраняется в переменной min1
Файл f1 закрывается
Открывается файл на чтение с адресом C:\Users\Stramaus Konstantin\Desktop\Практические по ОП\13\2.txt и связывается с переменной f1
Проверяется, не пуст ли файл f1. Если он пуст, выводится сообщение Второй файл пуст! До свидания!, файл f1 закрывается, и программа завершает работу с кодом ошибки 1
Считывается первый элемент файла f1 и сохраняется в переменной min2
Пока в файле f1 есть несчитанные элементы, считывается значение в переменную a. Если значение a меньше, чем значение переменной min2, значение a сохраняется в переменной min2
Файл f1 закрывается
Выводится сообщение о значениях переменных min1, min2 и их суммы.