Не могу разобраться в коде Проги выдает ошибку

[XYLIGANXYL]

Подскажите как решить эту ошибку.
Полная программа приложена.

{$R-} {Range checking off}
{$B-} {Boolean complete evaluation on}
{$S+} {Stack checking on}
{$I+} {I/O checking on}
{$N-} {No numeric coprocessor}
{$F+,O-}
{$D-}{$L-}

Unit Ap;

{$F+,I-,O+,S-,V-,X+}