นี้โค้ดทั้งหมดของผมครับ จะเขียนโปรแกรมร้านไอติม ส่งโปรเจ็ค

[Spoil] คลิกเพื่อดูข้อความที่ซ่อนไว้program Icecreams;
uses crt;

label
loop;

const
HFS = 79;
CCY = 79;
BBS = 69;
MOC = 69;
CLS = 69;
CFS = 69;
HFB = 129;
SCC = 129;
CTR = 129;
FFT = 159;
TPB = 109;
STE = 109;
ORE = 109;
CBN = 109;
TEQ = 399;
CFD = 299;
CE = 15;
FD = 15;
CY = 10;
OO = 10;
CL = 10;
WC = 10;
BB = 10;
HF = 10;
SY = 10;
AD = 10;
FN = 10;
BE = 50;
WE = 50;


var
choice : integer;
MENUS,count,choices  : string;


begin
clrscr;
gotoxy (16,3);
writeln ('              SWENSEN MENU CHOOSE');
writeln;
writeln ('              ษอออออออออออออออออออออออออออออออออออออออออออออป');
writeln ('              บ   Open Manual  Press 1   ( For employee )   บ');
writeln ('              บ   List of Menu Press 2                      บ');
writeln ('              บ   Program      Press 3                      บ');
writeln ('              ศอออออออออออออออออออออออออออออออออออออออออออออฝ');
writeln;
write ('      Menu Select = ');
readln(choice);

case choice of

1 : begin
clrscr;
gotoxy (16,3);
writeln('                     RULE');
writeln;
writeln('                   1. Please use certain letter');
writeln('                   EXAMPLE RIGHT IS BBS1 not BbS1');
writeln;
writeln('                   2. Dont input any thing none-coded');
writeln;
textcolor(red+blink);
writeln('                   To add more RULE contract Programmer');

readln;
end;

2 : begin
clrscr;
gotoxy (16,3);
writeln('                     MENU CODE');
writeln;
writeln('         ICECREAM                                  TOPPING');
writeln;
writeln('         Hot fudge super Sunday  79 bath = HFS     Cherrydip   15 bath = CE');
writeln('         Chewy chocky            79 bath = CCY     Fandip      15 bath = FD');
writeln('         BlueBerry Sunday        69 bath = BBS     Cherry      10 bath = CY');
writeln('         Coffee Sunday           69 bath = CFS     Fan         10 bath = FN');
writeln('         Chockcolate Sunday      69 bath = CLS     Almond      10 bath = AD');
writeln('         Mocca Chockco           69 bath = MOC     Strawberry  10 bath = SY');
writeln('         Hot Fudge Bonanza      129 bath = HFB     Hotfudge    10 bath = HF');
writeln('         Super Chockco          129 bath = SCC     Blueberry   10 bath = BB');
writeln('         Fongdu For two         159 bath = FFT     Whipcream   10 bath = WC');
writeln('         Oreo brownie           109 bath = ORE     Brownie     50 bath = BE');
writeln('         Caramel banana         109 bath = CBN     Waffle      50 bath = WE');
writeln('         Coit tower             129 bath = CTR     Caramel     10 bath = CL');
writeln('         Strawberry stripe      109 bath = STE     Oreo        10 bath = OO');
writeln('         Triple blueberry       109 bath = TPB');
writeln('         The eartquake          399 bath = TEQ');
writeln('         Chockcolate Fondu      299 bath = CFD');

readln;
end;

3 : begin
loop:
write(' INPUT ORDER');
        readln(MENUS);
writeln ('How many? ');
        readln(count);

writeln (' Anything else? ');
readln(choices);

if choices = "yes" then
choices := upcase(YES);
goto loop;

else writeln MENUS*count;




readln;
end;

end;
end.





ประเด็นเลยคือ Case 3 ผมไม่รู้จะทำยังไงจริงๆครับ ลองหาดูจากทุกที่แล้วก็ไม่รู้เรื่อง จะใส่เมนูไปยังไง แล้วให้มันแสดงผล

ทั้งหมดตอนสุดท้าย
ผมไม่เข้าใจเรื่อง loop อะไรนี้เลยสักนิดครับผม
อยากให้มัน output เป็น

ALL MENU

XX 3 EA. = XX BAHT
AA 8 EA. = XX BAHT อะไรแบบนี้อะครับ ช่วยแนะนำก็ได้ครับ ขอบคุณมาก