Hogyan tudok olyan programot írni, amiben meg kell nyomni egy billentyűt, hogy egy utasítást végrehajtson a program?

program valaszt;

uses crt;

var c: char;

procedure anya;

begin

ClrScr;

WriteLn('Anyukad hogy van ?');

ReadLn;

end;

procedure te;

begin

ClrScr;

WriteLn('Te hogy vagy ?');

ReadLn;

end;

begin

repeat

ClrScr;

WriteLn('A - Anyukad hogy van?');

WriteLn('T - Te hogy vagy');

WriteLn('X - Kilepess a programbol');

c:= ReadKey;

c:=UpCase(c);

case c of

'A': anya;

'T': te;

end;

until UpCase(c)= 'X';

end.

Szívesen. Lányos zavaromban egy függvénnyel többet írtam, bár így is működik, csak csúnya.

until UpCase(c)= 'X'; helyett until c = 'X';