Найти минимальный элемент из всех минимальных элементов по строкам

const
  n_max = 100;
 
var
  A: array[1..n_max, 1..n_max] of integer;
  B: array[1..n_max] of integer;
  min, i, j, n, imin: integer;
  f: text;
 
begin
  assign(f, 'input.txt');
  reset(f);
  readln(f, n);
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      read(f, A[i, j]);
      write(A[i, j]:5);
    end;
    writeln;
  end;
  close(f);
  for i := 1 to n do
  begin
    min := a[i, 1];
    imin := 1;
    for j := 2 to n do
      if A[i, j] < a[i, imin] then 
      begin
        imin := j;
        min := a[i, j];
      end;
    B[i] := imin;
  end;
  writeln('Минимальные элементы:');
  for i := 1 to n do
    writeln('Минимум: ', a[i, b[i]]:5, 'Строка: ':10, i:5);
  writeln;
  imin := 1;
  for i := 2 to n do
    if A[i, B[i]] < A[imin, B[imin]] then 
      imin := i;
  writeln('Min элемент среди min элементов строк = ', A[imin, B[imin]], ' индексы A[', imin, ',', B[imin], ']');
end.