Не могу понять в чем ошибка - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Дан массив 5 на 5, нужно написать процедуру, которая будет искать наибольший элемент в строке.
program n1;
var a: array [1..5, 1..5] of integer;
i, j: integer;
 
procedure max ( k: integer; var m, n: integer);
begin
 
m:=a[i,1];
 
for n:=2 to 5 do
        if m < a[i,n] then
        m:=a[i,n];
 
writeln('Строка ',i,' :',m);
 
end;
 
BEGIN
 
for i:=1 to 5 do
begin
        for j:=1 to 5 do
        begin
 
        a[i,j]:=random(100)-50;
        write(a[i,j]:4);
 
        end;
        writeln;
end;
 
for i:=1 to 5 do
max(i, a);

END.

Решение задачи: «Не могу понять в чем ошибка»

textual
Листинг программы
for i:=1 to 5 do
max(i, a);

Объяснение кода листинга программы

  1. Объявляется цикл for с переменной i и шагом от 1 до 5
  2. Внутри цикла вызывается функция max с двумя аргументами: i и a
  3. Функция max возвращает максимальное значение из двух переданных ей аргументов
  4. Значение функции max присваивается переменной a
  5. Цикл завершается

Оцени полезность:

6   голосов , оценка 3.833 из 5