Can anyone point out why am I getting run time error for this program.

general
,
1

all freepascal submissions from the list:-