Даны четыре целочисленные квадратные матрицы 5-го порядка. Найти ту из них, норма которой наибольшая

program Zadanie87;
const
  n = 5;   // Размерность матрицы.
type
  TArr = array [1..n,1..n] of integer;
 
procedure InfOutMatrix (arr: TArr; narr,marr: integer); // Процедура для вывода матрицы на экран.
var
   i,j: integer;
begin
  for i:= 1 to narr do
    begin
    for j:= 1 to marr do
      Write(arr[i,j]:4);
    writeln;
    end;
end;
 
procedure RandomInfInMatrix (var arr: TArr; narr,marr,leftval,rightval: integer);
var   // Процедура для заполнения матрицы случайными числами.
   i,j: integer;
begin
for i:= 1 to narr do
  for j:= 1 to marr do
      arr[i,j]:= leftval + random(rightval - leftval + 1) ;
 
end;
 
function norma (arr: TArr; narr,marr: integer): integer; // Функция для нахождения нормы.
var
   i,j: integer;
   m: integer;
begin
m:= -1;
for i:= 1 to narr do
  for j:= 1 to marr do
    if abs(arr[i,j]) > m then
        m:= abs(arr[i,j]);
norma:= m;
end;
 
var
   a1,a2,a3,a4: TArr; // Переменные для хранения двумерных массивов.
   arrnorma: array[1..4] of integer;  // Переменная для хранения значений найденных норм.
   left: integer;   //  Переменная для хранения левой границы диапазона генератора случайных чисел.
   right: integer;    // Переменная для хранения правой границы диапазона генератора случайных чисел.
   mnorm: integer;    // Переменная для хранения максимального значения нормы.
   indm: integer;     // Переменная для хранения значения индекса найденной нормы с максимальным значением.
   i: integer;       // Промежуточная переменная для организации цикла.
begin
  randomize;
  left:= -100;
  right:= 100;
  writeln('Исходная матрица №1');
  RandomInfInMatrix(a1,n,n,left,right);  // Заполнение матрицы случайными числами.
  InfOutMatrix(a1,n,n);                 // Вывод матрицы на экран.
  arrnorma[1]:= norma(a1,n,n);           // Нахождение нормы для матрицы.
  writeln('Норма матрицы №1: ',arrnorma[1]);  // Вывод найденного значения нормы на экран.
  writeln;
  writeln('Исходная матрица №2');
  RandomInfInMatrix(a2,n,n,left,right);
  InfOutMatrix(a2,n,n);
  arrnorma[2]:= norma(a2,n,n);
  writeln('Норма матрицы №2: ',arrnorma[2]);
  writeln;
  writeln('Исходная матрица №3');
  RandomInfInMatrix(a3,n,n,left,right);
  InfOutMatrix(a3,n,n);
  arrnorma[3]:= norma(a3,n,n);
  writeln('Норма матрицы №3: ',arrnorma[3]);
  writeln;
  writeln('Исходная матрица №4');
  RandomInfInMatrix(a4,n,n,left,right);
  InfOutMatrix(a4,n,n);
  arrnorma[4]:= norma(a4,n,n);
  writeln('Норма матрицы №4: ',arrnorma[4]);
  writeln;
  mnorm:= -1;
  for i:=1 to 4 do     // Нахождение нормы с наибольшим значением.
    if arrnorma[i] > mnorm then
        begin
        mnorm:= arrnorma[i];
        indm:= i;
        end;
  writeln('Наибольшая норма найдена для матрицы № ',indm);
  Readln;
end.

...........................................
 
var
   a: array [1..4] of TArr; // Переменные для хранения двумерных массивов.
   arrnorma: array[1..4] of integer;  // Переменная для хранения значений найденных норм.
   left: integer;   //  Переменная для хранения левой границы диапазона генератора случайных чисел.
   right: integer;    // Переменная для хранения правой границы диапазона генератора случайных чисел.
   mnorm: integer;    // Переменная для хранения максимального значения нормы.
   indm: integer;     // Переменная для хранения значения индекса найденной нормы с максимальным значением.
   i: integer;       // Промежуточная переменная для организации цикла.
begin
  randomize;
  left:= -100;
  right:= 100;
  for i:=1 to 4 do
    begin
     writeln('Исходная матрица № ',i);
     RandomInfInMatrix(a[i],n,n,left,right);  // Заполнение матрицы случайными числами.
     InfOutMatrix(a[i],n,n);                 // Вывод матрицы на экран.
     arrnorma[i]:= norma(a[i],n,n);           // Нахождение нормы для матрицы.
     writeln('Норма матрицы № ',i,': ',arrnorma[i]);  // Вывод найденного значения нормы на экран.
     writeln;
    end;
  mnorm:= -1;
  for i:=1 to 4 do     // Нахождение нормы с наибольшим значением.
    if arrnorma[i] > mnorm then
        begin
        mnorm:= arrnorma[i];
        indm:= i;
        end;
  writeln('Наибольшая норма найдена для матрицы № ',indm);
  Readln;
end.