Найти минимальный из всех максимальных элементов столбцов матрицы - Turbo Pascal

const m = 6;
      n = 7;
var s: array [1..m, 1..n] of integer;
    i, j, imax, imin, jmin: integer;
begin
  randomize;
  writeln('Source array:');
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
          s[i, j] := -99 + random(199);
          write(s[i, j]:4)
        end;
      writeln
    end;
  for j := 1 to n do
    begin
      imax := 1;
      for i := 2 to m do if s[i, j] > s[imax, j] then imax := i;
      if (j = 1) or (s[imax, j] < s[imin, jmin])
        then begin
          imin := imax;
          jmin := j
        end
    end;
  write('Minimum element from maximum elements of columns: S[', imin, ', ', jmin, '] = ', s[imin, jmin]);
  readln
end.