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

Var
  A     : array[1..100,1..100] of Integer;
  B     : array[1..100] of Integer;
  M,N,s,i,j : Integer;
Begin
  Readln(M,N);
  For i:=1 to M do
  Begin
    s:=0;
    For j:=1 to N do
    Begin
      A[i,j]:=Random(100);
      Write(A[i,j]:4);
      If A[i,j] mod 3 = 0 then s:=s+A[i,j];
    end;
    If s=0 then B[i]:=-10 else B[i]:=s;
    Writeln('           ',B[i]);
  end;
end.