Hello friends.

I cannot seem to get my code to run. Can someone who knows pascal please help to write this program code , I will greatly appreciate your assistance, the details are as follows.
...