Определите, больше ли минимальное значение первого файла, чем максимальное значение второго

const
  n = 20;
var
  FileA, FileB: file of integer;
  arr: array[1..n] of integer;
  i, min, max: integer;
begin
  randomize;
  min:=1; max:=1;
  assign(FileA, 'C:\FileA.dat');
  rewrite(FileA);
  for i:=1 to n do
  begin
    arr[i]:=random(20);
    write(FileA, arr[i]);
    if arr[i] < min then min:=arr[i];
  end;
  close(FileA);
  assign(FileB, 'C:\FileB.dat');
  rewrite(FileB);
  for i:=1 to n do
  begin
    arr[i]:=random(20);
    write(FileB, arr[i]);
    if arr[i] > max then max:=arr[i];
  end;
  close(FileB);
  writeln('Содержимое первого файла: ');
  assign(FileA, 'C:\FileA.dat');
  reset(FileA);
  while not eof(FileA) do
  begin
    read(FileA, arr[i]);
    write(arr[i], ' ');
  end;
  writeln;
  writeln('Его минимальное: ', min);
  close(FileA);
  writeln('Содержимое второго файла: ');
  assign(FileB, 'C:\FileB.dat');
  reset(FileB);
  while not eof(FileB) do
  begin
    read(FileB, arr[i]);
    write(arr[i], ' ');
  end;
  writeln;
  writeln('Его максимальное: ', max);
  close(FileB);
  writeln('Больше ли минимальное значение первого, чем максимальное значение второго? - ');
  if min > max then write('да!')
    else write('нет!');
end.