Определить сумму элементов матрицы, кратных 3, и количество отрицательных элементов

Var B:Array[1..2,1..2] of integer;
l,p,k,s,n:Byte;
   Begin
  Randomize;
  For l:=1 to 2 do
    For p:=1 to 2 do
      b[l,p]:=Random(100)-Random(20);
  For l:=1 to 2 do
    Begin
      For p:=1 to 2 do Write(B[l,p]:6);
      Writeln;
    End;
   Writeln('---------Отрицательные числа (кол-во), столбцы соответствуют столбцам----------');
   For p:=1 to 2 do
    Begin
      k:=0;
      For l:=1 to 2 do
        If B[l,p]<0 Then k:=k+1;
      Write(k:6);
    End;
Writeln('');
Writeln('---------------Деление------------------');
   For p:=1 to 1 do
    Begin
        If B[1,1] mod 3 = 0 Then n:=(n+B[1,1]);
        If B[2,1] mod 3 = 0 Then n:=(n+B[2,1]);
        If B[1,2] mod 3 = 0 Then n:=(n+B[1,2]);
        If B[2,2] mod 3 = 0 Then n:=(n+B[2,2]);
      Write(n);
    End;
End.

##
var (l,p) := ReadInteger2('Введите размерность матрицы l p =');
var B := MatrRandomInteger(l, p, -99, 99);
Println; B.Println(5);
Println(#10'Сумма эл-тов матрицы, кратных 3 =', B.ElementsByRow.Where(el -> el.Divs(3)).Sum);
Println('Кол-во отриц. эл-тов =', B.ElementsByRow.Count(el -> el<0));