Дана матрица размера 5 x 10. Найти максимальный среди минимальных элементов каждой строки — Pascal(Паскаль)

var a:array[1..5,1..10]of integer;
    b:array[1..5]of integer;
    i,j:integer;
function min(i:integer):integer;
var m,j:integer;
begin
m:=a[i,1];
for j:=1 to 10 do
if a[i,j]<m then m:=a[i,j];
min:=m;
end;
 
function max:integer;
var m,i:integer;
begin
m:=b[1];
for i:=1 to 5 do
if b[i]>m then m:=b[i];
max:=m;
end;
 
function search:integer;
begin
for i:=1 to 5 do
b[i]:=min(i);
search:=max;
end;
 
begin
randomize;
for i:=1 to 5 do
for j:=1 to 10 do
a[i,j]:=random(21)-5;
for i:=1 to 5 do
begin
     for j:=1 to 10 do
     write(a[i,j]:4);
     writeln;
end;
writeln('Максимальный элемент среди минимальных: ',search);
end.