ERROR ILLEGAL EXPRESSION

nattylinux

This pascal program should calculate net pay etc. Got it down to one error that says;
Payroll2.pas(40,33) Error: Illegal expression
Payroll2.pas(45,4) Fatal: There were 1 errors compiling module, stopping
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Any help would be appreciated.



Program Payroll2(input,output);
uses crt;
CONST
BasicRate=2350;
TaxRate=0.165;
VAR
Firstname:Array[1..6]of String;
Surname:Array[1..6]of String;
Overtime_Pay,GrossPay,Tax,Bonus,NetPay:Real;
Hoursworked,X:Integer;
Overtime_Rate:Real;
Begin
clrscr;
X:=0;
GrossPay:=0;
Tax:=0;
Overtime_Pay:=0;
NetPay:=0;
Bonus:=0;
FOR X:=1 TO 6 DO
begin
Writeln('Please enter your firstname,surname and hours worked');
Readln(Firstname[X],Surname[X],Hoursworked);
IF Hoursworked <= 40 THEN
Begin
Writeln('hours are 40 or less');
Writeln('test line #2');
//Overtime_Pay:=(Hoursworked-40)*(BasicRate*1.5);
//GrossPay:=(BasicRate*40)+Overtime_Pay;
//Tax:=GrossPay*TaxRate;
end;

IF Hoursworked <= 40 THEN
begin
Writeln('hours more than 40');
Bonus:=BasicRate*0.5;
end;
if Hoursworked > 40 THEN
Bonus:=BasicRate*0.2;
NetPay =(GrossPay+Bonus)-Tax;
Writeln(Firstname[X],Surname[X]);
Writeln('HAVE A NICE DAY!');
end;
Readln;
END.

_Atex_

: This pascal program should calculate net pay etc. Got it down to one
: error that says;
: Payroll2.pas(40,33) Error: Illegal expression
: Payroll2.pas(45,4) Fatal: There were 1 errors compiling module,
: stopping
: Fatal: Compilation aborted
: Error: /usr/bin/ppc386 returned an error exitcode (normal if you did
: not specify a source file to be compiled)
:
: Any help would be appreciated.
:
:
:
: Program Payroll2(input,output);
: uses crt;
: CONST
: BasicRate=2350;
: TaxRate=0.165;
: VAR
: Firstname:Array[1..6]of String;
: Surname:Array[1..6]of String;
: Overtime_Pay,GrossPay,Tax,Bonus,NetPay:Real;
: Hoursworked,X:Integer;
: Overtime_Rate:Real;
: Begin
: clrscr;
: X:=0;
: GrossPay:=0;
: Tax:=0;
: Overtime_Pay:=0;
: NetPay:=0;
: Bonus:=0;
: FOR X:=1 TO 6 DO
: begin
: Writeln('Please enter your firstname,surname and hours worked');
: Readln(Firstname[X],Surname[X],Hoursworked);
: IF Hoursworked <= 40 THEN
: Begin
: Writeln('hours are 40 or less');
: Writeln('test line #2');
: //Overtime_Pay:=(Hoursworked-40)*(BasicRate*1.5);
: //GrossPay:=(BasicRate*40)+Overtime_Pay;
: //Tax:=GrossPay*TaxRate;
: end;
:
: IF Hoursworked <= 40 THEN
: begin
: Writeln('hours more than 40');
: Bonus:=BasicRate*0.5;
: end;
: if Hoursworked > 40 THEN
: Bonus:=BasicRate*0.2;
: [red][b]NetPay:=(GrossPay+Bonus)-Tax;[/b][/red]
: Writeln(Firstname[X],Surname[X]);
: Writeln('HAVE A NICE DAY!');
: end;
: Readln;
: END.