Составить матрицу, элементы первой строки равны максимальному элементу; а второй строки - номеру (Делфи)

[Markss]

Задание:
Дана матрица. Составить новую матрицу, элементы первой строки которой равны максимальному элементу; а элементы второй строки - номеру строки, в которой он находится, соответствующего столбца исходной матрицы.

Возникли проблемы с реализацией 2 части программы. В частности щётчик выдаёт заоблачные числа вместо реального номера строки.

Сама программа:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const k=10;
type mas=array[1..k,1..k]of integer;
var m,n,h:integer;
suk:array[1..k,1..k] of integer;
sum:array[1..k,1..2] of integer;
i,j,l,q,w:byte;
a:mas;
p,z,maxc,max:integer;

begin
randomize;
writeln('enter koli4estvo strok');
readln(m);
writeln('enter koli4estvo stolboFF');
readln(n);
writeln('enter elementi massiva');
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(k);
writeln;writeln;
writeln('polu4ilasi matriza vida:');
writeln;
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln
end;
writeln;writeln;
h:=0; q:=0;
p:=0;
//2 4asti
for j:=1 to n do
begin
max:=a[1,j];
z:=0;
h:=h+1;
for i:=1 to m do begin
z:=z+1; {write(z,' '); }
If A[i,j]>Max Then begin
Max:=A[i,j];

sum[2,h]:=z;
end
else sum[2,h]:=1;{write(z,' ');}
end;
MaxC:=Max;

// 3 4asti
q:=q+1;
sum[1,q]:=maxc;
end;writeln; q:=0;
for i:=1 to 2 do begin
for j:=1 to m do
write(sum[i,j],' ');
writeln;
end;
readln
end.

[Markss]

вопросы:
1.почему счётчик показывает числа большие чем кол-во строчек в матрице?
2.как собственно реализовать п.2 задания