Матрица!Прошу рассмотреть

 program MaTriCa;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var a:array[1..750] of array[1..750] of integer; n,k,count,i,m,j:integer; f:text;
flag: boolean;
begin
count:=0;
assign(f,'input.txt');
reset(f);
read(f,n);
readln(f,m);
 
for i:=1 to n do
begin
  for j:=1 to m do
  begin
  read(f,a[i,j]);
  end;
writeln
end;
close(f);
 
assign(f,'output.txt');
rewrite(f);
 
For i:=1 to n do
begin
 For j:=1 to m do
  begin
    flag:=false;
    for k:=1 to n do
      if (a[k,j]>a[i,j]) then flag:=true;
 
    for k:=1 to m do
      if (a[i,k]<a[i,j]) then flag:=true;
 
      if not flag then
  count:=count+1;
  end;
 end;
 
 
 
 writeln(f,count);
 writeln(f);
 
 
 
close(f);
end.

    for k:=1 to n do
      if (a[k,j]>a[i,j]) then flag:=true;
 
    for k:=1 to m do
      if (a[i,k]<a[i,j]) then flag:=true;