Найдите максимальный по модулю элемент матрицы

program MatrixAbs;
 
const
  N = 5;
  
var
  A : array [1..N, 1..N] of Real;
  i, g : Word;
  Max : Real;
  MaxStrNum : Word;
  tmpElement : Real;
 
begin
  //генерируем и показываем случайную матрицу
  randomize;
  for i := 1 to N do
    begin
      for g := 1 to N do
        begin
          A[i][g] := (random()-0.5)*100;
          write( A[i][g]:5:3, ' ');
        end;
      writeln;
    end;
  writeln;
    
  //ищем наибольший по модулю элемент и запоминаем номер его строки
  Max := abs(A[1][1]);
  MaxStrNum := 1;
  for i := 1 to N do
    for g := 1 to N do
        if abs(A[i][g]) > Max
        then
          begin
            Max := abs(A[i][g]);
            MaxStrNum := i;
          end;
   
  //переставляем строки
  writeln('Str number: ', MaxStrNum);
  writeln;
  if (MaxStrNum <> 1)
  then
    for g := 1 to N do
      begin
        tmpElement := A[1][g];
        A[1][g] := A[MaxStrNum][g];
        A[MaxStrNum][g] := tmpElement;
      end;
      
  //показываем массив с переставленными строками
  for i := 1 to N do
    begin
      for g := 1 to N do
        write(A[i][g]:5:3, ' ');
      writeln;
    end;
  writeln;
  
  readln;
end.