Is it possible for you to transfer a simple modularity into Turbo Pascal 7 for me please. its for an Assessment in class and its due thursday.

PROCEDURE MAIN
Start
Declare count, monthly_salary as global real
Declare name as string
Count = 0
While count < 50 do   
CALL getempinfo
Monthly_salary =  comp(hrs_worked,hr_rate)
CALL Displayinfo
Count=count+1
End While
End

PROCEDURE getempinfo ( )
Enter
Declare Name as global string
Declare hrs_worked, hr_rate as global real
Read hrs_worked, hr_rate, Name
Return

FUNCTION comp(a,b)
Return a*b

Procedure displayinfo ( )
Print Name, Monthly_salary
Return

(please respond as soon as possible please). Than you very much!