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