Wie funktioniert Case mit Borland Pascal 7.0 ?

Meine Pascalzeiten sind so lange her... Aber was genau ist denn dein Problem?

Ich denke es müsste so funktionieren:

program keys;
uses Crt;


var ch: char;
begin
  repeat 
    ch := ReadKey;
    case ch of
      'w': writeln('w');
      's': writeln('s');
      'a': writeln('a');
      'd': writeln('d');
    else
      writeln('other');
    end;
  until ch = #27;
end.

Crt stellt ReadKey und andere Sachen zur Verfügung. Dann eine Schleife, bis User Escape (#27) drückt. Und hoffentlich haben WSAD dann einfach als Scancode ihren ASCII-Wert...