Двумерный массив на Паскале

[HECTOR.A.]

Пожалуйста напишите программу:
Для матрицы размером n×m составить массив, содержащий номера максимальных элементов каждой строки.

[Sazary]

uses crt;

var
n,m,i,j,k,max : integer;
matr : array[1..100,1..100] of integer;
mx : array[1..100] of integer;

begin
clrscr;
write('Kolichestvo strok= ');
readln(m);
write('Kolichestvo stolbcov= ');
readln(n);

{zapolnyaem matricu}
randomize;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
  matr[i,j] := random(100)-20;
  write(matr[i,j]:4);
  end;
  writeln;
 end;
{---}
for i:=1 to m do
 begin
 max := matr[i,1];
 mx[i] := 1;
  for j:=2 to n do
   if matr[i,j]>max then
    begin
    max := matr[i,j];
    mx[i] := j;
    end;
 end;
{----}
writeln;
writeln('Maksimalnye elementy:');
for i:=1 to m do
  writeln('stroka ',i,': matr[',i,',',mx[i],']= ',matr[i,mx[i]]);

readln;
end.

[HECTOR.A.]

Блин спасибо тебе выручил