В каждой строке матрицы найти минимальный элемент, а среди них - максимальный

program progr;
const n = 10;
      m = 10;
      k = 10;
var a:array [1..n,1..m] of real;
    min, max: real;
    i, j, t : byte;
begin
Randomize;
for i:=1 to n do
    for j:= 1 to m do begin
        a[i,j]:=random(10)+1;
        writeln(a[i,j]);
        end;
min:=10;
max:=1;
for i:=1 to n do
    for j:= 1 to m do begin
    if a[i,j]<min then min:= a[i,j] end;
    if max<min then max:=min;
    
writeln(max);
END.

var
  A: array[1..12, 1..12] of real;
  n, m, i, j: integer;
  min, max, x: real;
  
begin
  randomize;
  n := 1 + random(12);
  m := 1 + random(12);
  writeln('Вводим матрицу ', n, 'x', m, 
          ' случайных вещественных чисел:');
  writeln;
  max := real.MinValue;
  for i := 1 to n do
  begin
    min := real.MaxValue;
    write(' |');
    for j := 1 to m do
    begin
      a[i, j] := 20 * random - 10;
      x := round(a[i, j] * 1000) / 1000;
      write(x:7);
      if min > a[i, j] then min := a[i, j]
    end;
    writeln('|', ' ':5, 'min = ', min:0:3);
    if max < min then max := min
  end;
  writeln;
  writeln('Максимальное значение из минимальных: ', max:0:3)
end.