ช่วยเขียนปาสคาลหน่อยคะ

คืออาจารย์ที่โรงเรียนสอนไม่รู้เรื่องเลย หรือว่าหนูไม่รู้เรื่องเองก็ไม่รู้ เอาแต่สั่งๆๆๆอย่าเดียวเลย=.=
เดี๋ยวก็จะสอบอีกแล้ว ตอนนี้ถึง If ...Then อยู่อ่ะค่ะแล้ว คืออาจารย์สั่งให้ทำโปรแกรมคนละ 1 โปรแกรม
จะทำเป็นร้านขายอะไรก็ได้ แต่ต้องคำนวณด้วย ส่วนของหนูทำร้านขายvcd อ่ะค่ะคิดว่ามันไม่ได้ยุ่งยากมากนัก
ปัญหาคือคำนวณไม่ถูก ไม่ต้องทำให้ก็ได้นะคะ แค่อยากลองขอดูตัวอย่างว่า ต้องทำยังไงมาเป็นแนวคิดอะค่ะ
คือหนูอยากเรียนรู้และทำเองดูบ้างเพื่ออะไรจะได้ดีขึ้น รบกวนใครก็ได้นะคะนึกว่า สงสารเหอะ ตั้ง 30 คะแนนอ่ะคะ
ส่งก่อนปิดเทอมด้วย เวรรกรรมจริง :P ขอบคุณค่ะ


Program VCD;
Uses crt;
var Customer,Amount,NameType,Price,Total:string;
Begin
clrscr;
gotoxy(35,5);
Writeln('VCD Sapphire Blue');
gotoxy(15,8);
writeln('===========================================================');
gotoxy(15,10);
writeln('   Customer:    Amount:    NameType:      Price:     Total: ' );
gotoxy(15,12);
writeln('===========================================================');
gotoxy(15,14);
writeln('       A           2       Super Showl    1,500      3000      ');
gotoxy(15,16);
writeln('       B           4       Super Jr.05     300       12000     ');
gotoxy(15,18);
writeln('       C           1       Super Jr. M     500        500      ');
gotoxy(15,20);
writeln('       D           3       Super Showll   2,500      7500      ');
gotoxy(15,22);
writeln('------------------------------------------------------------');
gotoxy(15,24);
writeln('Circulation');
readln;
End.




ไปลองทำดูแล้วคะ แอต่คำนวณไม่ถูกช่วยดูหน่อยซิ




***ขอ บคุณ พี่ moshi มากๆๆคะ มันใช่เลยค่ะ แบบนี้ถูกต้องเลย !!!

แต่มีอีกเรื่องอะคะ หนูจะถามพี่ว่า ถ้าจะคำนวณผลรวมยอดขายTotalทั้งหมดเลย

ทำได้มั้ยอะคะ  รบกวนอีกนิดได้ปะคะ ยอดขายทั้งหมดอะคะ  ขอบคุณอีกครั้งนะคะ

งานหนูส่งพรุ่งนี้แล้วคะ ได้เต็มแน่ เลย คิคิ