Написать программу на языке паскаль.Задание:Дано 10 чисел, найти сумму положительных и сумму отрицательных

Var
   A,Sp,So:real;
   i:integer;
Begin
Sp:=0;
So:=0;
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then So:=So+A
    else Sp:=Sp+A;
    End;
WriteLn('Сумма отрицательных: ',So);
WriteLn('Сумма положительных: ',Sp);
End.