Очень нужна помощь !!!

[bitmania]

Задание : Вычислить и запомнить количество положительных элементовдля каждого столбца матрицы А(10,10),В(15,20).
Вот то что я сам делал но она не считает то что нужно :

Program podprogram;
Var
m1,n1,m2,n2: integer;
procedure f( n, m: integer);
var i,j: integer;
s: array [1..8] of real;
a: array [1..8,1..10] of real;
begin
Writeln('wwedi element masiwa');
for i:=1 to m do
begin
for j:=1 to n do
readln(a[i,j]);
end;
for j:= 1 to n do
begin
S[j]:=0;
if a[i,j]>0 then s[j]:=s[j]+1;
Writeln ('s[j]=',s[j]:2:6);
end;
end;
begin
writeln ('wwedi m1,n1,m2,n2');
readln(m1,n1,m2,n2);
f(m1,n1);
f(m2,n2);
end.

[L_M]

Возможно надо инициализировать j

j:=0;

а вообще странная организация программы...зачем здесь эта процедура? если очень нужна, то лучше уж две сделать: для ввода и счета отдельные...
и еще непонятен мне вывод: по моему должно быть:

WriteLn('s[j]',s[j]);