ช่วยแปลงให้เป็น PASCAL ทีครับ

ผมลองหลายทีแล้วครับรันไม่ได้สักที
.........................................
เป็นการคำนวณค่าเช่าโรงแรม
ห้องประเภทที่ 1 ค่าห้อง 500
ห้องประเภทที่ 2 ค่าห้อง 800
ห้องประเภทที่ 3 ค่าห้อง 1000
ห้องประเภทที่ 4 ค่าห้อง 1500
กำหนดส่วนลด ดังนี้
ประเภทที่ 1 และ 2 ลด 10%
ประเภทที่ 3 และ 4 ลด 20%
ตัวแปร
    1.ค่าเช่า   :   RENT                                   2.ส่วนลด   : DISCOUNT
    3.ค่าเช่าสุทธิ   : NET                                 4.จำนวนวัน   : DAY
    5.ประเภทห้อง   : ROOM

CLS
RENT = 0
DISCOUNT = 0
NET = 0
INPUT “ENTER DAY”; DAY
INPUT “ENTER ROOM”; ROOM
IF ROOM = 1 THEN
         RENT = DAY * 500
         DISCOUNT = RENT * .1
ELSEIF ROOM = 2 THEN
         RENT = DAY * 800
         DISCOUNT = RENT * .1
ELSEIF ROOM = 3 THEN
         RENT = DAY * 1000
         DISCOUNT = RENT * .2
ELSE
   RENT = DAY * 1500
         DISCOUNT = RENT * .2
END IF
NET = RENT – DISCOUNT
PRINT
PRINT”=========================”
PRINT” RENT                   = ”; RENT
PRINT” DISCOUNT         = ”; DISCOUNT
PRINT” NET                      = ”; NET
PRINT “=========================”
END
รันไม่ได้เลยครับ ทั้งจอ ทั้งเครื่องพิมพ์
ช่วยทีครับผม

program it4x;
uses crt;
var room,day:integer;
    rent,discount,net:real;
begin
     clrscr;
     write('ENTER DAY = ');
     readln(day);
     write('ENTER ROOM = ');
     readln(room);
     case room of
         1:begin
            rent:=day*500
            discount:=rent*(10/100)
         end;
         2:begin
            rent:=day*800
            discount:=rent*(10/100)
         end;
         3:begin
            rent:=day*1000
            discount:=rent*(20/100)
         end;
         4:begin
            rent:=day*1500
            discount:=rent*(20/100)
         end;
         else
         writeln('ROOM ERROR');
     end;
    net:=rent-discount
     writeln('NET = ',net:1:2);
     readln;
end.

ลองไปรันเทสทดสอบเองอีกทีนะครับ ยังไม่ได้ลองรันครับ ต้องแกโค๊ดเพิ่มเองด้วยครับ

program it4x;
uses crt;
var room,day:integer;
    rent,discount,net:real;
begin
     clrscr;
     write('ENTER DAY = ');
     readln(day);
     write('ENTER ROOM = ');
     readln(room);
     case room of
         1:begin
            rent:=day*500
            discount:=rent*(10/100)
         end;
         2:begin
            rent:=day*800
            discount:=rent*(10/100)
         end;
         3:begin
            rent:=day*1000
            discount:=rent*(20/100)
         end;
         4:begin
            rent:=day*1500
            discount:=rent*(20/100)
         end;
         else
         writeln('ROOM ERROR');
     end;
    net:=rent-discount
     writeln('NET = ',net:1:2);
     readln;
end.

ลองไปรันเทสทดสอบเองอีกทีนะครับ ยังไม่ได้ลองรันครับ ต้องแกโค๊ดเพิ่มเองด้วยครับ

ต้องขอขอบคุณอีกครั้งครับ ผมลองเอาแก้แล้วรันได้แล้ว 
แล้วผมก็คิดพิลึกใส่โค้ด printer เข้าไป รันไม่ได้เลยแฮะ
อาจารย์บอกว่าถ้าใครแสดงผลทางเครื่องพิมพ์ได้เอาคะแนนไปเพิ่มอีก
ไอ้เราก็อยากได้ ยิ่งไม่มีคะแนนกับเพื่อน อันนี้ก็งานสุดท้ายที่เหลือแล้ว
ทำไงดีเนี่ย
ขอบคุณพี่ Moshi มากนะครับที่ช่วยมาตั้งเยอะ