Задан квадратный массив У целых чисел(таблица). Определить наименьший элемент массива среди элементов расположенных ниже главной диагонали и делящихся на заданное число b без остатка — Pascal(Паскаль)

uses crt;
var a:array[1..100,1..100]of integer;
i,j,m,n,b:integer;
 
begin
    clrscr;
    randomize;
    write('Введите размеры матрицы -> ');
    readln(n,m);
    writeln('Исходная матрица');
    for i:=1 to n do
    begin 
        for j:=1 to m do
        begin
            a[i,j]:=random(100);
            write(a[i,j]:3);
        end;
        writeln;
    end;
    
    repeat
     write('B -> ');
     readln(b);
    until b<>0;
    
    m := a[2,1];
    for i:=1 to N do for j:= 1 to i-1 do if (a[i,j] < m)  and (a[i,j] mod B = 0) then m:=a[i,j];
    writeln(m);
    readln;
end.