Дан двумерный массив найти максимальный элемент и заполнить строку и столбец в которых он...

// PascalABC.NET 3.0, сборка 1073
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,imax,jmax:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
imax:=1; jmax:=1;
for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4);
      if a[i,j]>a[imax,jmax] then
        begin imax:=i; jmax:=j end
    end;
    Writeln
end;
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.

Тестовое решение:
Введите число строк и столбцов массива:
5 8
*** Исходный массив ***
11 -10 -25 -25 -19 -3 -2   0
-24   1   5 -25 -21 -16 -16 -22
-21 -10 -12   7 20 16   0 -10
-13 25 -18 18 -5   9 15   1
-19 -10 -16   9 -11 11 24 -19
*** Результирующий массив ***
11   0 -25 -25 -19 -3 -2   0
-24   0   5 -25 -21 -16 -16 -22
-21   0 -12   7 20 16   0 -10
   0   0   0   0   0   0   0   0
-19   0 -16   9 -11 11 24 -19