this is an assignment i recieved i have been trying to get it to work but it wont.i edited a couple times but i still get the same messages can anyone assist?
The purpose of the program is to assist with the check-in and searching of guests registered at the La Guardia Oasis Villa Hotel.
Program ReservationSBA (input, output);
Uses crt;
Var
Firstname: array [1..200] of string;
Lastname: array [1..200] of string;
Nights: array[1..10] of integer;
EarlyBdStatus: array[1..200] of char;
Groupsize: array[1..20] of integer;
Status: array[1..200] of string;
Room: array [1..200] of string;
Roomavail, menu, submenu, x, I, guest: integer;
Ebdrate, bronze, silver, gold, platinum, usaexchange, total: real;
Final_cost, discount, Janight_rate, Usnight_rate: real;
Name: string;
Guests_per_room: integer;
Begin
Janight_rate := 15500;
Usnight_rate := 200;
Ebdrate := 0.15;
Bronze := 0.02;
Silver := 0.03;
Gold := 0.05;
Platinum := 0.1;
Room:=200;
Usaexchange:=89;
Guest:=0;
X:= 0;
I:=0;
Repeat
Writeln (‘1.Check in guests’);
Writeln (‘2.Other options’);
Writeln (‘3.Exit’);
if menu:=1 then
Writeln (‘please enter First Name ‘);
Readln (Firstname[x]);
Writeln (‘Please enter Last Name’);
Readln (Lastname[x]);
Writeln (‘Please enter status (r-resident nr-non resident)’);
Readln (status[x]);
Writeln(‘Please enter the status’);
Readln (nights[x]);
Writeln (‘Please enter early bird status (Y- yes N- no)’);
Readln (EarlyBdStatus[x]);
Writeln (‘Please enter groupsize’);
Readln (groupsize[x]);
End;
For i:= 1 to 200 do ;
If room[i]:= ‘ ‘ then
Room[i]:= name;
Guests_per_room[i]:= groupsize;
Break;
End;
Begin
If status:= ‘r’ then
Total:=nights*Usnight_rate * usaexchange;
If status:=‘nr’ then
Total :=nights*Usnight_rate*usaexchange;
If EarlyBdStatus:= ‘Y’ then
Discount :=EbdRate*total;
Else
If EarlyBdStatus:= ‘N’ and groupsize:= 1 then
Discount :=bronze*total;
Else
If EarlyBdSattus:=‘N’ and groupsize := 2 then
Discount:=silver*total;
Else
If EarlyBdStatus:=‘N’ and groupsize:= 3 or groupsize:= 4 or groupsize:= 5 or groupsize:= 6
Or groupsize:=7 or groupsize:= 8 or groupsize :=9 then
Discount:= gold*total;
Else
If EarlyBdStatus := ‘N’ and (groupsize>9) then
Discount:=platinum*total;
FinalCost:= total-discount;
Roomavail:= 0;
For x := 1 to room do;
If rooms[X] = ‘ ‘ then
Roomavail:= roomavail + 1;
Writeln (‘Name: ‘, name);
Writeln (‘Cost: $’, total :6:2, ‘ JMD’);
Writeln (‘Discount: $’, discount :6:2, ‘ JMD’);
Writeln(‘Final Total: $’, Final_cost:6:2, ‘ JMD’);
Writeln(‘Room Number: ‘ , i);
Writeln (‘Available rooms: ‘ , roomavail);
Writeln (‘ Total Guests Registered: ‘ , guest);
Until menu:=3 ;
End.
Error message: 61 / 17 secons~1.pas
Error: Illegal qualifier
71 / 1 secons~1.pas
Fatal: Syntax error, UNTIL expected but END found
