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

Var a,b,c,d,m,i:integer;
beginfor i:=1 to 10 do
begin
writeln('Введите число');
read(m);
if mgt;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.