Help With Applying Pseudocode To Pascal

Question

Begin 
Fail = 0
Pass = 0
Read Mark 
While Mark is > < = Do 
If Mark > 50 then 
Pass = Pass + 1
Else
Fail = Fail + 1
EndIf 
Read Mark 
EndDo 
Total = Pass + Fail 
Print "No. Of Students Who Pass",PASS
Print "No. Of Students Who Fail",FAIL
Print "No. Of Students Taken The Exam",TOTAL
End