В данной действительной квадратной матрице порядка N найти наибольший по модулю элемент

[Гарри]

Помогите решить пожалуйста:
В данной действительной квадратной матрице порядка N найти наибольший по модулю элемент. Получить новую квадратную матрицу путем вычитания из элементов исходной матрицы найденного минимального элемента. Исходный и скорректированный массивы вывести на экран.

[newerow1989]

найти наибольший по модулю элемент

найденного минимального элемента

Как это понять?

const n=10;
var p:array[1..n,1..n] of integer;
    i,j,max:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   max:=p[1,1];
   For i:=1 to n do
      For j:=1 to n do
         If Abs(max)<Abs(p[i,j]) then
            max:=p[i,j];
   Writeln(max);
   For i:=1 to n do
   begin
      For j:=1 to n do
      begin
         p[i,j]:=p[i,j]-max;
         Write(p[i,j],'  ');
      end;
      Writeln;
   end;
   Readln;
end.

Сойдет?