Numero de ocorrencias de um valor par

{ paulogp }
Program Peda_08 (Input, Output);

Uses
    WinCrt;

Var
    Numero, Num_Inferior, Num_Superior, Contador: Integer;
    Fim: Char;

Begin
    Repeat
        ClrScr;
        WriteLn('Programa: Numero de ocorrencias de um valor par.');
        WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
        WriteLn;
        Write('Escreva o limite inferior: ');
        ReadLn(Num_Inferior);
        Repeat
            WriteLn;
            Write('Escreva o limite superior: ');
            ReadLn(Num_Superior);
        Until Num_Superior > Num_Inferior;
        Contador:= 0;
        For Numero:= Num_Inferior to Num_Superior do
            If Not Odd(Numero) then
            Begin
                WriteLn(Contador + 1,': ',Numero);
                Contador:= Contador + 1;
            End;
        WriteLn;
        WriteLn('Numero de pares: ', Contador);
        WriteLn;
        WriteLn;
        Write('Repetir programa (S/N)? ');
        Fim:=ReadKey;
    Until UpCase(Fim)='N';
    DoneWinCrt;
End.