Найти элемент матрицы, являющийся наибольшим в столбце и наименьшим в строке - Turbo Pascal - Ответ 4334465

Uses crt;
const n=3; m=3;
Var A:array[1..n,1..m] of integer;
    B:array[1..n] of integer;
    i,j,u,v,min,max,k:integer;
    bi:boolean;
Begin clrscr; randomize;
  for i:=1 to n do
   for j:=1 to m do A[i,j]:=Random(10);
  for i:=1 to n do
   Begin
     for j:=1 to m do Write(A[i,j]:4);
     WriteLn;
   End;
  for i:=1 to n do
   Begin
     min:=A[i,1];
     for j:=1 to m do if A[i,j]<min then min:=A[i,j];
     B[i]:=min;
   End;
  WriteLn;
  for i:=1 to n do
   Begin
     bi:=true;
     for j:=1 to m do if A[i,j]=B[i] then u:=j;
     max:=A[i,u];
      for k:=1 to n do if A[k,u]>max then bi:=false;
     if bi=true then v:=i;
   End;
  if bi=true then
   Begin
     WriteLn('poluchilos');
     for i:=v to n-1 do
                   for j:=v to m-1 do A[i,j]:=A[i+1,j+1];
     for i:=1 to n-1 do
       Begin
         for j:=1 to m-1 do Write(A[i,j]:4);
         WriteLn;
       End;
   end
       else Write('takih net');
  ReadLn;
End.