Дана целочисленная матрица А размером М х N, где М и N вводятся с клавиатуры. Сформировать одномерный массив В, где В[i] равно сумме элементов кратных
трем в i-ой строке. Если таких элементов нет, то В[i] равно -10.
Двумерные массивы

Не работает

for j:=1 to m do вegin замени на for j:=1 to m do begin

Спасибо , в программе разобрался , просто не мог понять в чём ошибка)

const nx=30;mx=30;var i,j,n,m:integer;A:array[1..nx,1..mx] of integer;B,D:array[1..nx] of integer;begin write('Введите n');Readln(n);write('Введите m');Readln(m);for i:=1 to n do beginfor j:=1 to m do вeginA[i,j]:=random(100)-20;write(A[i,j]:4);end;writeln;end;writeln;for i:=1 to n do beginfor j:=1 to m do beginif (A[i,j] mod 3 =0) then begin B[i]:= B[i] + A[i,j];write(A[i,j]:4);D[i]:= D[i] + 1;end;end;writeln;end;for i:=1 to n do begin if (B[i]=0) and (D[i]= 0) then B[i]:= -10;write(B[i]:4);end;end.