2 матрицы, найти среднее арифм., С помощью процедуры и функции... Опции

[Serge Я!]

Кто-нибудь, помогите!
В матрице 5х5 и 7х7 найти средн. арифм. элементов, кратных трем, лежащих на главной и побочной диагонали. Сделать с помощью Procedure и Function. (В смысле, чтобы средн. арифм. вычислялось с процедурой, второй вариант - с функцией)
Пробовал по-всякому, ну не получается... Help?!

[Serge Я!]

Да пожалуйста...
Вот:

Код

program matx;
uses wincrt;
var a:array[1..5,1..5] of integer; b:array[1..7,1..7] of integer; c:array[1..13] of integer;   <- нужно ли???
i,j,x:integer;
function func:real;
begin
???
???
end;
begin
randomize;
for i:=1 to 5 do for j:=1 to 5 do a[i,j]:=random(9);
for i:=1 to 5 do for j:=1 to 5 do write(a[i,j]:2);

for i:=1 to 5 do for j:=1 to 5 do if (j=i) or (j=6-i) then
if a[i,j] mod 3=0 then begin write(a[i,j]:2); x:=x+1; c[x]:=a[i,j]; end;
writeln;
for x:=1 to 13 do write(c[x]);

writeln;
{writeln(func);}
end.

Не знаю что делать... Может не нужен одномерный массив тут?