Pascal/Turbo Pascal - Ayuda Case of

program  case;

uses

    crt;

 var

    entrada : char;

    sal : boolean;

 begin

   sal := false;

repeat

      entrada := readkey;

       case entrada of

'A','a' : writeln('  A Pulsado A');

'B','b' : writeln('  A Pulsado B');

'C','c' : writeln('  A Pulsado C');

'S','s' : sal := true;

end

else

     writeln('  Intentelo De Nuevo');

  until sal = true;

end.