ช่วยทีนะครับ

โจทย์บอกว่า : เขียนโปรแกรมในการคำนวณค่าล้างอัดรูปกับร้าน PhotoShop โดยมีการให้บริการ 2 บริการ คือ ล้าง-อัดรูป และ ถ่ายรูป
          ราคาค่าถ่ายรูปคิดดังนี้
ถ่าย 6 ใบ ราคา 90 บาท
ถ่าย 12 ใบ ราคา 120 บาท
ส่วนราคาในการล้าง-อัดรูป คิดตามราคาท้องตลาดทั่วไป(ตรงส่วนนี้ผมสมมุติว่า 1 ใบ 50 บาท)

program photo;
uses wincrt;
var  choice:integer;
    price:longint;
    amount,total:real;

begin
    gotoxy (25,1);writeln('==============================');
    gotoxy (30,2);writeln('*** PhotoShop ***');
    gotoxy (25,3);writeln('==============================');
    gotoxy (25,4);writeln('Choice 1 = 6 Photo 90 Bath');
    gotoxy (25,5);writeln('Choice 2 = 12 Photo 120 Bath');
    gotoxy (31,6);writeln('Choice 3 = 1 Photo : 50 Bath');
    gotoxy (20,8);write('Enter Choice            : ');
    readln(Choice);
if choice=1 then
  begin
       gotoxy (20,10);write('Price 6 Photo 90 Bath');
  end
else if choice=2 then
  begin
       gotoxy (20,11);write('Price 12 Photo 120 Bath');
  end
else if choice=3 then
  begin
       write('Enter amount :');
       readln(amount);
       price:=amount*50;
       writeln('amount =',price:1:2);
       total:=amount+price;
       writeln('u price =',total:1:2);
  end
else
       begin
       writeln;
       gotoxy (20,14);writeln('Error , Only Enter 1,2,3, ':34);
       end;
  end.

-------------------------------------------------
-------------------------------------------------
ตรงส่วนที่ทำตัวหนานั่นคือ ตรงที่มัน error ไม่รู้ว่าผิดยังไงแล้วจะแก้ไขยังไง  
แล้วก็ตรงตัวแปรนั้นจะต้องเขียนยังไงใส่ยังไงด้วย
จึงอยากจะรบกวนให้ช่วยหน่อยนะครับ
(ตรงส่วนที่ผิดนั้น ผมต้องการจะ..
- หากเลือก Choice 3
- แล้วก็จะขึ้นบรรทัดใหม่ ให้ใส่ จำนวนรูป
- แล้วเอาจำนวนรูปนั้นมา *50 (คูณ50)
- แล้วแสดงผลลัพธ์ออกมา)

รบกวนด้วยนะครับ