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

var a,b,c,d,m,i:integer;beginfor i:=1 to 10 dobeginwriteln('Введите число');read(m);if m>0 then  begina:=a+1;c:=c+mendelse begin b:=b+1;d:=d+m;end;end;writeln('Кол-во положительных равно ',a);writeln('Кол-во отрицательных равно ',b);writeln('Сумма положительных равна ',c);writeln('Сумма отрицательных равна ',d);end.