Найти значение наибольшего по модулю элемента матрицы

Дана действительная матрица 18хN. Вывести её на экран. Найти значение наибольшего по модулю элемента матрицы

Вывод на экран:

for i:=1 to 18 do 
 for j:=1 to N do 
  FMain.StringGrid1.Cells[j,i]:=FloatToStr(a[i,j]);

a - двумерный массив, в котором хранится матрица. Используй компонент TStringGrid.

Максимальный по модулю:

var i,j:integer; a:array[1..18,1..N] of double; max:double;
begin
max:=0;
for i:=1 to 18 do
 for j:=1 to N do
  if abs(a[i,j])>abs(max) then max:=a[i,j];

автор: 4erep_88