Im D7 sollte das eigentlich "richtig" funktionieren und müsste gleich am Anfang einen Fehler werfen.
Ich hab in D7 den Code von oben mal getestet - eigenartigerweise geht das wirklich - nur knallte es bei mir einmal gleich nach der Frage:
writeln('Amerikanisch (A) oder Europaeisch (E)?');
und der darauf folgenden Eingabe A und einmal am Ende vom Programm
Unter XE2 knallt's gleich nach dem Start vom Programm:
Computer sagt Nein
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<