Quantidade de par e impar

{Escrever um programa que le 5 valores para NUM, um de cada vez, e conta
 quanto destes valores sao pares e quantos sao impares, escrevendo esta
 informacao.}

Program QuantParImpar
uses CRT;
Var
   Num, Cont,QPar, QImpar: Integer;
Begin
    Cont  := 1;
    Qpar   := 0;
    QImpar := 0;
    Clrscr;
    While Cont <= 5 Do
        Begin
           Writeln('Digite o N£mero: ', Cont);
           Read(Num);
           If (Num MOD 2) = 0 Then
           QPar := QPar + 1
                              Else
                              QImpar := QImpar + 1;
                              Cont := Cont + 1;
        End;
    Writeln('O Total de N£meros Pares   ‚: ', QPar);
    Writeln('O Total de N£meros Impares ‚: ', QImpar);
    Readkey;
End.