[Neocoder]

А в какой версии делфи вы открывали?Программа написана на Delphi7 с настройками по умолчанию.Никаких ошибок не выдает.Текст задания вот http://stream.ifolder.ru/8988457 файле, но по коду должно быть все правильно.