Дан двумерный массив размерностью 4×5, заполненный целыми числами с клавиатуры. Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов, кратных 3 или 5, соответствующей строки — Pascal(Паскаль)

uses crt;
const n=4; m=5;
var a:array[1..n,1..m]of integer;
b:array[1..n]of integer;
i,j:integer;
 
begin
    clrscr;
    randomize;
    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;
  
    for i:=1 to N do
    begin
       b[i]:=0;
       for j:=1 to M do if (a[i,j] < 0) and ((a[i,j] mod 3 = 0) or (a[i,j] mod 5 = 0)) then inc(b[i]);
       write(b[i],' ');
    end;
    readln;
end.