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

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

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

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.

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