Сделать программку в паскале.Складть программу за якою числа вводятся з клаватури

Var
   A,p,o,n:integer;
Begin
Read(A);
While Alt;gt;0 do
   Begin
   if A gt; 0 then p:=p+1
   else o:=o+1;
   Read(A);
   End;
WriteLn('Количество положительных (gt;0): ',p);
WriteLn('Количество отрицательных (lt;0): ',o);
End.


Пример работы программы:

1
2
3
-4
-5
0
Количество положительных (gt;0): 3
Количество отрицательных (lt;0): 2