Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём

uses
  Crt;
const
  N = 5;
  M = 3;
var
  a: array [1..N, 1..M] of integer;
  i,j,c,sum: integer;
begin
  ClrScr;
  sum := 0;
  c := 0;
  WriteLn('Èñõîäíàÿ ìàòðèöà:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i,j] := random(10);
      if (i + j) mod 2 = 0 then
      begin
        Inc(c);
        Inc(sum, a[i,j]);
        TextColor(2)
      end
      else
        TextColor(4);
      Write(a[i,j]:2, ' ')
    end;
    WriteLn
  end;
  TextColor(0);
  WriteLn('Result: ', sum/c:4:2)
end.

uses
  Crt;
const
  N = 5;
  M = 3;
var
  a: array [1..N, 1..M] of integer;
  i,j: integer;
begin
  ClrScr;
  WriteLn('Èñõîäíàÿ ìàòðèöà:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i,j] := random(10);
      Write(a[i,j]:2, ' ')
    end;
    WriteLn
  end;
  WriteLn('Полученная матрица:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      if odd(j) then
        a[i,j] := a[i,j] * i;
      Write(a[i,j]:2, ' ')
    end;
    WriteLn
  end;
  ReadLn
end.

uses
  Crt;
const
  N = 5;
  M = 3;
var
  a: array [1..N, 1..M] of integer;
  i,j,sum: integer;
begin
  ClrScr;
  sum := 0;
  for i := 1 to N do
    for j := 1 to M do
    begin
      a[i,j] := random(10) - 5;
      if (a[i,j] > 0) and (a[i,j] mod 3 <> 0) then
        Inc(sum, a[i,j]);
    end;
  WriteLn('Èñõîäíàÿ ìàòðèöà:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      if (j = M) and (a[i,j] < 0) then
        a[i,j] := sum;
      Write(a[i,j]:2, ' ')
    end;
    WriteLn
  end;
  ReadLn
end.