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

program prog;
var i, j, n, m_i, m_j: byte;
    A: array[1..100,1..100] of Real;
    maxmod: Real;
begin
randomize;
writeln('Vvedite N:');
readln(n);
{заполнение случайными числами, можно вводить вручную}
for i:=1 to n do
    for j:=1 to n do
        A[i,j]:=-100+random(200);
 
{поиск максимального по модулю элемента}
maxmod:=abs(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
 for j:=1 to n do
  if abs(A[i,j])>maxmod then
  begin
  maxmod:=abs(A[i,j]);
  m_i:=i; m_j:=j;
  end;
 
{Печать матрицы и ответа}
writeln('Исходная матрица:');
for i:=1 to n do
begin
 for j:=1 to n do write(A[i,j]:6:1);
 writeln;
end;
writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1);
{вывод на печать уменьшенной матрицы}
for i:=1 to n do
 if (i<>m_i) then
 begin
 for j:=1 to n do
   if (j<>m_j) then write(A[i,j]:6:1);
 writeln;
 end;
readln;
end