Масивы и матрицы (Pascal)

[ysjh333]

Пожалуйста помогите разобраться
1.Дан массив размером 5х6 с элементами целого типа. Написать программу для вычисления количества элементов массива, кратных трем.

2.Дана матрица Но и Y(3,3), для каждой из которых вычислить сумму элементов над, под главной диагональю и на главной диагонали. Ведения, выведение матрицы и вычисление сумм оформить в виде функций.
За ранние спасибо.

[VIK_aka_TOR]

var
a: array [1..5,1..6] of integer;
i,j, index: integer;
begin
index:=0;
    for i:=1 to 5 do
    begin
        for j:=1 to 6 do
        begin
           a[i,j]:=random(20);
           write(a[i,j]:3);
           if (a[i,j] mod 3) = 0 then
           inc(index);
        end;
        writeln;
    end;
   writeln('Элементов кратным трем ',index);
end.