Не могу понять в чем ошибка - 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.

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

Листинг программы

for i:=1 to 5 do
max(i, a);

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

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