Latihan Program Pascal Case Of

bismillah
cuma bagi-bagi ilmu aja, silahkan dicopy paste atau dipelajari...
semoga bermanfaat.

program lat_case;
uses wincrt;
var x,a:char;
begin
repeat
writeln('makanan kesukaan');
readln;
writeln('================');
readln; {enter}
writeln('a. soto');
readln; {enter}
writeln('b. siomai');
readln; {enter}
writeln('c. nasi goreng');
readln; {enter}
writeln('d. mie ayam');
readln; {enter}
writeln('=================');
writeln; {enter}
writeln(''silahkan pilih yang anda suka');
readln(x);
case x of
'a':begin
writeln('soto');
end;
'b':begin
writeln('siomai');
end;
'c':begin
writeln('nasi goreng');
end;
'd':begin
writeln('mie ayam');
end;
end;
writeln('ulangi program ? (y/t)=');readln(a);
clrscr;
until (a='T') or (a='t');
end.