Quantidade de valores negativos e positivos

{Escrever um programa que leia um numero nao determinado de valores e
 calcule a media aritmetica dos valores lidos, a quantidade de valores
 positivos, a quantidade de valores negativos e o percentual de valores
 negativos e positivos. Mostre os resultados.}

Program Media_Classe;
Uses CRT;
Var
   Cont: Integer;
   Media, Numero, Soma, QtdVP, QtdVN: Real;
Begin
    Numero := 0;
    QtdVP  := 0;
    QtdVN  := 0;
    Media  := 0;
    Cont   := 0;
    Clrscr;
    Writeln ('OBS: para encerrar o programa e mostrar os calculos digite 0');
    Writeln('Digite os Valores:');
    While True Do
          Begin
              Read(Numero);
              If (Numero = 0) Then
                 Break
              Else
                 Begin
                     Soma := Soma + Numero;
                     If Numero > 0 Then
                        QtdVP := QtdVP + 1;
                     If Numero < 0 Then
                        QtdVN := QtdVN + 1;
                     Cont := Cont + 1;
                 End;
         End;
    Media := (Soma)/Cont;
    Writeln('A M‚dia dos Numeros ‚,', Media:10:2);
    Writeln('A quantidade de Numeros Positivos ‚,', QtdVP:10:2);
    Writeln('O Percentual de Numeros Positivos ‚,', ((QtdVP*100)/Cont):10:2);
    Writeln('A quantidade de Numeros Negativos ‚,', QtdVN:10:2);
    Writeln('O Percentual de Numeros Negativos ‚,', ((QtdVN*100)/Cont):10:2);
    ReadKey;
End.