Дан массив A [1..18, 1 .. n] и естественное число n.

program arrays_19;
const n=5; // задаем n
var i, j, x1, x2, k: integer;
m: array[1..18,1..n] of integer;
begin
for i:=1 to 18 do begin
for j:=1 to n do begin
m[i, j]:=random(101)-50; // наполнение матрицы случайными числами и вывод на экран
write(m[i, j]:5);
end;
writeln;
end;
k:=-100000;  // задаем изначальное значение для максимального
for i:=1 to 18 do begin
for j:=1 to n do begin
if abs(m[i,j])gt;k then begin k:=m[i,j];x1:=i;x2:=j;end;
end;
end;
write( наибольший элемент по модулю = ,k, его индексы ,x1, ,x2); // вывод ответа
end.