Tabela ASCII

{ paulogp }
Program Peda_12 (Input, Output);

Uses
    WinCrt;

Var
    Codigo, Contador: Integer;
    Fim: Char;

Begin
    Repeat
        ClrScr;
        WriteLn('Programa: Pequena tabela ASCII.');
        WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
        Contador:= 0;
        WriteLn;
        For Codigo:= 33 to 126 do
        Begin
            Write(Codigo:3, ': ',Chr(Codigo), ' ');
            Contador:= Contador + 1;
            If Contador Mod 10 = 0 then WriteLn;
        End;
        WriteLn;
        WriteLn;
        WriteLn;
        Write('Repetir programa (S/N)? ');
        Fim:=ReadKey;
    Until UpCase(Fim)='N';
    DoneWinCrt;
End.