Найти минимальный среди максимальных элементов каждой строки матрицы

Uses crt;
const n=4;
      m=4;
var a: array [1..n,1..m] of integer;
    b: array [1..100] of integer;
    x,y,z,max,min,k: integer;
begin
     z:=1;
     for x:=1 to n do begin
         for y:=1 to m do
         begin
              a[x,y]:=random(20);
              write(a[x,y]:3);
         end;
         writeln;
         end;
     for y:=1 to m do begin
         max:=a[1,y];
         for x:=1 to n do
              if a[x,y]>max then max:=a[x,y];
         b[z]:=max;
         inc(z);
         end;
     min:=b[1];
     k:=z-1;
     for z:=1 to n do
         if b[z]<min then min:=b[z];
     writeln;
     writeln(min);
end.

Uses crt;
const n=4;
      m=4;
var a: array [1..n,1..m] of integer;
    x,y,max,min: integer;
begin
randomize;
for x:=1 to n do
 begin
  for y:=1 to m do
   begin
    a[x,y]:=random(20);
    write(a[x,y]:3);
   end;
  writeln;
 end;
for x:=1 to n do
 begin
  max:=a[x,1];
  for y:=1 to m do
  if a[x,y]>max then max:=a[x,y];
  writeln('Максимальный в строке ',x,'=',max);
  if x=1 then min:=max
  else if max<min then min:=max;
 end;
writeln('Из них минимальный=',min);
end.