Данй массив из целых чисел а(3,3). Определить минимальные элементы в каждой строке. Из них найти максимальный элемент

const  n = 3;var  a:array[1..n,1..n] of integer;  minc:array[1..n] of integer;  i,j,min,maxr:integer;begin  Randomize;  Writeln('Исходный массив');  for i := 1 to n do  begin    min:=100;    for j := 1 to n do    begin      a[i,j]:=Random(21)-10;      Write(a[i,j]:4);      if min>a[i,j] then min:=a[i,j]    end;    Writeln;    minc[i]:=min  end;  maxr:=-100;  Write('Минимальные элементы построчно: ');  for i:=1 to n do  begin if maxr<minc[i] then maxr:=minc[i]; Write(minc[i]:4) end;  Writeln;  Writeln('Максимальный среди минимальных: ',maxr)end.Тестовое решение:Исходный массив  10  -3   6  -2   6   4   0   8 -10Минимальные элементы построчно:   -3  -2 -10Максимальный среди минимальных: -2