В каждой строке матрицы определить значение максимального элемента и его номер

{ программа обработки двумерной матрицы }
type
matrix=array[1..10,1..10] of integer;
var
a:matrix;
b:array[1..10,1..2] of integer;
i,j:integer;
n,m:integer;
max,k:integer;
begin
writeln('введите размеры матрицы n и m');
write('n=');
read(n);
write('m=');
read(m);
{ Ввод матрицы a}
writeln('введите построчно матрицу a');
for i:=1 to n do
for j:=1 to m do
read(a[i,j]);
{ Вывод матрицы a}
writeln('Исходная матрица a');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3,' ');
writeln;
end;
{ поиск максимального элемента и его номера
в каждой строке матрицы }
for i:=1 to n do
begin
max:=a[i,1]; k:=1;
for j:=2 to m do
if a[i,j]>max then
begin
max:=a[i,j];
k:=j;
end;
b[i,1]:=a[i,k];
b[i,2]:=k;
end;
writeln('матрица результатов b');
for i:=1 to n do
begin
for j:=1 to 2 do
write(b[i,j]:3,' ');
writeln;
end;
end.

Program DvoynoyMassive;
 
Const
n=10;m=10;          {задаём размерности, в данном случае 10Х10}
 
Var
mass:array [1..n,1..m] of integer;      {объявляем массив целых чисел, с нумерацией с единицы}
a,b,c,d,i,sum,csum:integer;                 {разные переменные, походу будут нужны}
 
Procedure input;
Begin
For a:=1 to n do begin
    For b:=1 to m do begin
         Read(mass[a,b]); end; end; {читаем элементы с клавиатуры, при размерности 10х10 сто раз надо будет вбить цифры}
end;
 
Procedure output;
Begin
For a:=1 to n do begin
    For b:=1 to m do begin
         Write(' ',mass[a,b]); end; {выводим элементы на экран}
    Writeln end;
end;
 
Begin
sum:=0;csum:=0;c:=0;
Write('Enter the elements of massive: ');
input;
Writeln('--------------------------source massive-------------------------');
output;
 
For a:=1 to n do begin
    For b:=1 to m do begin
    If (b>2) then
        If (mass[a,b]>0) then
            If (mass[a,b-1]>0) and (mass[a,b-2]>0)then begin
                mass[a,b]:=mass[a,b-1]+mass[a,b-2];
                c:=c+1; end
            Else begin
                For i:=1 to b-1 do begin
                d:=mass[a,b-i];
                    if d>0 then
                                        begin
                    sum:=d+sum;
                    csum:=csum+1;
                    end;
 
                    if csum>1 then
                                        begin csum:=0;
                                        Break;
                                        end;
                end;
                    if sum>0 then
                                begin
                                mass[a,b]:=sum;
                                c:=c+1;
                                sum:=0;
                                end;
                        end;
end;end;
Writeln('--------------------------destiny massive------------------------');
output;
 
Write('The number of changing is ',c);
End.