Написать функцию нахождения максимального числа и его номера в одномерном массиве.Задать двумерный массив и используя эту функцию, найти максимальное значение и их номера в каждой строке и их вывести- Pascal(Паскаль)

program Prog3;

uses crt;

const
NMax=100;

var
i,j,n,m,mx,nm:integer;
mass:array [1..NMax,1..NMax] of integer;
tmp:array [1..NMax] of integer;

procedure MaxEl(a:array [1..NMax] of integer; n:integer; var max,num:integer);
var
i:integer;
begin
max:=a[1];
num:=1;
for i:=2 to n do
if a[i]>max
then
begin
max:=a[i];
num:=i;
end;
end;

begin{Prog3}
write('Количество строк:');
readln(n);
write('Количество столбцов:');
readln(m);
writeln('Элементы массива:');
for i:=1 to n do
for j:=1 to m do
begin
write('mass[',i,',',j,']=');
readln(mass[i,j]);
end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
write(mass[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
for j:=1 to m do
tmp[j]:=mass[i,j];
MaxEl(tmp,m,mx,nm);
writeln('Строка ',i);
writeln('   максимальный элемент: mass[',i,',',nm,']=',mx);
end;

end.