Сформировать одномерный массив, каждый элемент которого равен наибольшему по модулю элементу

const
  n=5;
  m=7;
var
  a: array [1..n, 1..m] of integer;
  x: array [1..n] of integer;
  y: array [1..m] of integer;
  i,j,max: integer;
begin
  randomize;
  writeln('Матрица: ');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random(201)-100;
          write(a[i,j]:5);
        end;
      writeln;
    end;
  writeln;
  for i:=1 to n do
    begin
      max:=1;
      for j:=2 to m do
        if abs(a[i,max])<abs(a[i,j]) then max:=j;
      x[i]:=abs(a[i,max]);
    end;
  for i:=1 to m do
    begin
      max:=1;
      for j:=2 to n do
        if abs(a[max,i])<abs(a[j,i]) then max:=j;
      y[i]:=abs(a[max,i]);
    end;
  writeln('Массив из наибольших по модулю элементов соответствующих столбцов матрицы: ');
  for i:=1 to m do write(y[i]:5);
  writeln;
  writeln('Массив из наибольших по модулю элементов соответствующих строк матрицы: ');
  for i:=1 to n do write(x[i]:5);
  writeln;
end.