Не работает выход во внешнию среду из процедуры!!!

[Hacker19_90]

Всем доброго времени суток!!!
Смысл такой использую в процедуре Enter процедуру Exit чтобы закрыть программу!!! Все остальные процедуры исползуемые в процедуре Enter работают!!! Все кроме Exit!!!
Пожалуйста подскажите в чём причина??? и как можно закрыть программу!!!
Прога с графикой, давольно большая поэтому файл Паскаля вложу ввиде txt(sorry)!!!
У меня в процедуру Enter передаётся переменная For_Enter которая зависит от координаты по y "CoordY"!!!
если переменная равна 9 то ввод массива
если 10 то сортировка и вывод
если 11 то Exit (который не работает!!!
также можно пользоваться цифрами 1, 2, 3.
если хотите то выложу код!!!

[eoln]

Procedure Enter(For_Enter:integer);
begin
case For_Enter of
9: Vvod(Msv,J);
10: Sort_i_vivod(Msv,J);
11: EXIT;
end;

end;

EXIT - это команда выхода из процедуры Enter, заменяем,например, EXIT на HALT