Numero de ocorrencias

{ paulogp }
Program Peda_07 (Input, Output);

Uses
    WinCrt;

Var
    Numero, Num_Especial, Contador: Integer;
    Fim: Char;

Begin
    Repeat
        ClrScr;
        WriteLn('Programa: Numero de ocorrencias.');
        WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
        WriteLn;
        {Leitura de dados}
        Write('Numero a identificar (<>0): ');
        ReadLn(Num_Especial);
        Contador:= 0;
        Repeat
            WriteLn;
            Write('Escreva um numero (0 termina): ');
            ReadLn(Numero);
            If Numero = Num_Especial then Contador:= Contador + 1;
        Until Numero = 0;
        WriteLn;
        WriteLn('O ', Num_Especial, ' ocorreu ', Contador,' vez(es).');
        WriteLn;
        WriteLn;
        Write('Repetir programa (S/N)? ');
        Fim:=ReadKey;
    Until UpCase(Fim)='N';
    DoneWinCrt;
End.