Вводятся 10 чисел. Вывести на экран суммы положительных и отрицательных чисел и их количество

Var a, b, c, d, m, i:integer;

beginfor i:=1 to 10 do

begin

writeln ('Введите число') ;

read (m) ;

if m>0 then begin

a:=a+1;

c:=c+m

end

else

begin

b:=b+1;

d:=d+m;

end;

end;

writeln ('Кол-во положительных равно ', a) ;

writeln ('Кол-во отрицательных равно ', b) ;

writeln ('Сумма положительных равна ', c) ;

writeln ('Сумма отрицательных равна ', d) ;

end.