Даны 3 числа,написать программу подсчитывающую количество отрицательных чисел и сумму неотрицательных чисел

Program p2;
Var a,b,c:integer;
kolichestvo:byte;
summa:integer;
Begin
kolichestvo:=0;
summa:=0;
Readln(a);
If a kolichestvo:=kolichestvo+1 else
summa:=summa+a;
Readln(b);
If b kolichestvo:=kolichestvo+1 else
summa:=summa+b;
Readln(c);
If c kolichestvo:=kolichestvo+1 else
summa:=summa+c;
Writeln(Количество отрицательных = ,kolichestvo);
Writeln(Сумма положительных = ,summa);
End.