Вводятся 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.