ช่วยดูโปรแกรม ราคาสินค้า ซื้อมาก ของถูกลง .. แนะนำด้วยค่ะ

คำนวณยอดเงินที่ลูกค้าต้องการชำระจากการซื้อสินค้าชนิดหนึ่ง สินค้าที่ซื้อมีราคาชิ้นละ 50 บาท
แต่หากซื้อในปริมาณมาก ทางร้านจะขายในราคาที่ถูกลงดังนี้

จำนวนสินค้า       ราคาต่อชิ้น
1- 10               50 บ.
11 – 100           45บ.
101 – 1,000       40บ.
มากกว่า 1,000 ขึ้นไป 30บ.

[/color]

program buyGoods;
uses crt;
var goods:integer;
    amount :integer;
begin
     clrscr;
     write('Input the amount you purchase = ');
     readln(amount);
     clrscr;
     writeln('Your goods = ',amount,');
     case amount of
     1..10:writeln('50');
     11..100:writeln('45');
     101..1000:writeln('40');
      1000... :writeln('30');
     else
     writeln('thank you');
     end;
     readln;
end.

ถูกมั้ยคะ ช่วยแนะนำหน่อยค่ะ ยากจิง  :'(

จะไปรอดมั้ยเนี๊ยย วิชานิ