const m=5; n=4;
var 
a:array[1..m,1..n] of integer;
i,j,max,imax,jmax:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(50);
  write(a[i,j]:4);
  end;
  writeln;
 end;
max:=a[1,1]; imax:=1; jmax:=1;
for i:=1 to m do
 for j:=1 to n do
  if a[i,j]>max then begin max:=a[i,j]; imax:=i; jmax:=j; end;
writeln('imax = ',imax,'  jmax = ',jmax);
for i:=1 to m do a[i,jmax]:=0;
for j:=1 to n do a[imax,j]:=0;
writeln('Полученный массив:');
for i:=1 to m do
 begin
 for j:=1 to n do write(a[i,j]:4);
 writeln;
 end;
end.

Пример:
Исходный массив:
  36   3  37  36
   7  40  19  22
  47  48  10  11
  28  29  32  25
   9  47  17  35
imax = 3  jmax = 2
Полученный массив:
  36   0  37  36
   7   0  19  22
   0   0   0   0
  28   0  32  25
   9   0  17  35