Konsolenanwendung: if [Enter] then Procedure XY - wie umsetz

[sx2008]

if s=VK_RETURN then Das geht nur innerhalb von VCL Anwendungen.
Hier mal die erweiterte Abfrage

Delphi-Quellcode:

// hier wartet das Programm auf Eingabe vom StdInput
// man muss Return oder Strg+Z oder Strg+C drücken sondern geht's nicht weiter
readln(s);  // s:string
if s = '' then MachWas // Benutzer hat nur Return gedrückt
else if s = '1' the BerechneZins // Benutzer hat 1 und dann  Return gedrückt
else if s = '2' then BerecneVerlust
else if (s ='e') or (s='E') then exit
else writeln('falsche Eingabe');