Дана прямоугольная матрица. Получить вектор, каждая компонента которого наибольший по абсолютной величине элемент соответствующей строки матрицы — Pascal(Паскаль)

uses
  crt;
var
  a:array[1..100,1..100]of integer;
  ma:array[1..100]of integer;
  i,j,max,m,n:integer;
begin
  clrscr;
  writeln('vvod matrici');
  write('vvedite 4islo strok:..... ');
  readln(m);
  write('vvedite 4islo stolbcov:.. ');
  readln(n);
  for i:=1 to m do
  for j:=1 to n do
  begin
    write('vvedite ',j,' element ',i,' stroki:  ');
    readln(a[i,j]);
  end;
  for i:=1 to m do
  begin
    max:=a[i,1];
    for j:=2 to n do if a[i,j]>max then max:=a[i,j];
    ma[i]:=max;
  end;
  writeln('vivod matrici');
  for i:=1 to m do
  begin
    for j:=1 to n do write(a[i,j],' ');
    writeln;
  end;
  writeln('naibolshie elementi strok');
  for i:=1 to m do write(ma[i],' ');
  readln;
end.