Процедуры и функции

[Алёна25]

1. Составить программу из двух частей, в основной программе ввести элементы двумерного массива 3 на 7. В процедуре или функции подсчитать количество элементов равных нулю, сумму положительных и сумму отрицательных элементов массива. результат вывести в основную программу.
2. составить рпограмму из двух частей. в основной программе ввести элементы двумерного массива 5 на 5. в функции вычислить произведение элементов стоящих на побочной диагонали. результат вывести в основную программу.
3. Составить программу из двух частей. в основной программе ввести элементы одномерного массива (15). В процедуре создать новый массив из переделанного в начале массива должны быть элементы равные нулю, остальные ненулевые. результат вывести в основную программу.

Вот мои наработки:
1. type
Tmas = array [1..3,1..7] of integer;
var
i, j, Sum_a, Sum_b: integer;
mas: Tmas;

procedure Sum(const a: Tmas; var S1, S2: integer);
var
i, j: integer;
begin
S1:=0;
S2:=0;
for i:=1 to 3 do
for j:=1 to 7 do
if a[i,j] > 0 then S1:=S1 + a[i,j]
else S2:=S2 + a[i,j];
end;

begin
for i:=1 to 3 do
for j:=1 to 7 do
readln(mas[i,j]);
Sum(mas,Sum_a,Sum_b);
writeln('Сумма положительных = ',Sum_a);
writeln('Сумма отрицательных = ',Sum_b);
end;
но в этой задаче я не все сделала, не знаю как подсчитать элементы равные нулю.