Menu restoran pada program pascal

program MenuRestoran;
Uses winCrt;
Var pilih,ukuran,uk: integer;
bayar,jum,jml,total:real;

begin
clrscr;
writeln('Menu Restoran niki sae');
writeln('-----------------------');
writeln('1. tumpeng kuning ');
writeln('2. tumpeng sunda ');
writeln('3. tumpeng jawa');
write('Pilih pilihan anda : ');
readln(pilih);

case pilih of
1 : writeln('anda memesan tumpeng kuning');
2 : writeln('anda memesan tumpeng sunda');
3 : writeln('anda memesan tumpeng jawa');
else
writeln('Salah Input! Masukkan angka 1, 2, atau 3!!');
end;

writeln('pilih ukuran menu');
writeln('1. untuk ukuran kecilseharga 50000 ');
writeln('2. ukuran sedang seharga 100000 ');
writeln('3. ukuran besar seharga 200000');
writeln('pilihan anda adalah'); read(uk);
jml:=0;
if (uk=1) then jml:=50000 else
if (uk=2) then jml:=100000 else
if (uk=3) then jml:=200000
else writeln('Salah Input! Masukkan angka 1, 2, atau 3!!');
writeln('berapa yang anda pesan');read(jum);
total:=jml*jum;
writeln('total harga tumpeng adalah Rp',' ',total:0:0);
readln;
bayar:=total+0.1*total;
if (jum<5) then
writeln('jadi yang harus dibayarkan ditambah ongkos kirim sebesar Rp',' ',bayar:0:0) else
write('jadi total yang harus dibayar yaitu',total:0:0);

end.