В матрице размерностью m × n найти минимальный по модулю элемент

program gaBaugocBugaHu9i;
uses crt;
const n = 100; m = 100;
var
mass: array [1..n,1..m] of integer;
i,j,a,b,min: integer;
begin
writeln('Ââåäèòå ðàçìåðíîñòü ìàññèâà: ');
write('Êîëè÷åñòâî ñòðîê: ');
readln(a);
write('Êîëè÷åñòâî ñòîëáöîâ: ');
readln(b);
writeln('Ñôîðìèðîâàííûé ìàññèâ:');
for i:=1 to a do
for j:=1 to b do
begin
mass[i,j]:=-30+random(100);
end;
for i:=1 to a do
begin
for j:=1 to b do
begin
write(mass[i,j]);
write(' ');
end;
writeln();
end;
min:=125;
write('Ìèíèìàëüíûé ïî ìîäóëþ ýëåìåíò: ');
for i:=1 to a do
for j:=1 to b do
if (abs(mass[i,j]) < min) then
begin
min:=abs(mass[i,j]);
end;
writeln(min);
end.

const
    rows = 5;
    colls = 4;
var
    matrix: array[1..rows, 1..colls] of integer;
    imin, jmin, i, j: byte;
begin
    randomize;
    imin := 1; jmin := 1;
    writeln('Матрица: ');
    
    for i := 1 to rows do
    begin
        for j := 1 to colls do
        begin
            matrix[i, j] := random(90) - 10;
            if (abs(matrix[i, j]) < abs(matrix[imin, jmin])) then
            begin
                imin := i;
                jmin := j;
            end;
            write(matrix[i, j]:4);
        end;
        writeln;
    end;
    writeln('Минимальный по модулю элемент: ', matrix[imin, jmin]);
end.