Двумерный массив

[Didar]

Дан двумерный массив 4х5. Нужно вывести число и сумму положительных элементов каждого столбца. Число и сумму положительных элементов ВСЕГО МАССИВА вывел, а шоб под каждый столбец - не знаю...

Program ms;
Uses crt;
     var a:array[1..4,1..5] of real;
     i,j,t,n:integer;      s:real;
     begin
Clrscr;

writeln('Vvedyte massiv');
for i:=1 to 4 do
for j:=1 to 5 do
read(a[i,j]);

t:=0;
for i:=1 to 4 do
for j:=1 to 5 do
if a[i,j]>0 then begin t:=t+1; end;
write(t,' ');
writeln;

for i:=1 to 4 do
for j:=1 to 5 do
if a[i,j]>0 then begin s:=s+a[i,j]; end;
write(s,' ');

END.

[Shift_sk]

Program ms;

     var a:array[1..4,1..5] of real;
     i,j,t,n:integer;      s:real;
     begin


writeln('Vvedyte massiv');
for i:=1 to 4 do
for j:=1 to 5 do
read(a[i,j]);

t:=0;
for i:=1 to 5 do begin
for j:=1 to 4 do 
if a[j,i]>0 then begin t:=t+1; s:=s+a[j,i] end;
write('сумма полож элементов',i,'-го столбца равно ',s,' их количество - ',t);
writeln;
s:=0;
t:=0;
end;

for i:=1 to 4 do
for j:=1 to 5 do
if a[i,j]>0 then begin s:=s+a[i,j]; end;
write(s,' ');

END.

[Didar]

Спасибо, работает)

[Shift_sk]

всегда пожалуйста)