Создание и реализация программ с использованием текстовых файлов

assign(f,'f1.txt');
reset(f);
read(f,min);
while not eof(f) do
 begin
  read(f,a);
  if a<mn then mn:=a;
 end;
close(f);

assign(f,'f2.txt');
read(f,b);
while not eof(f) do
 begin
  read(f,a);
  if abs(a-min)<abs(b-min) then b:=a;
 end;

program txt;
uses
  Crt;
var
  i, min, delta, mindelta, n: Integer;
  File1, File2: File of Integer;
begin
  ClrScr;
  Assign(File1, 'file1.txt');
  Reset(File1);
  Assign(File2, 'file2.txt');
  Reset(File2);
  Read(File1, i);
  min:= i;
  while not eof(File1) do
  begin;
    Read(File1, i);
 if (i < min) then
   min:= i;
  end;
  Close(File1);
  Read(File2, n);
  mindelta:= abs(min - n);
  while not eof(File2) do
  begin
    Read(File2, i);
 delta:= abs(min - i);
 if (delta = 0) then
 begin
   mindelta:= 0;
   n:= min;
   Break;
 end
 else if (delta < mindelta) then
 begin
   mindelta:= delta;
   n:= i;
 end;
  end;
  Close(File2);
  writeln('Minimal''noe chislo v faile №1 = ', min);
  writeln('Samoe blizkoe k nemu chislo iz faila №2 = ', n);
  WriteLn;
  WriteLn('Press any key...');
  ReadLn;
end.

File1, File2: File of Integer;

File1, File2: Text;