Помогите.Задачка

Ребят выручайте. Компьютер дома сломался,а курсовую надо сдать в понедельник.Не знаю к кому обратиться(( помогите исправить задачку,а то она что то не правильно работает( Мне друг делал,а почему криво работает-не знает(

http://narod.ru/disk/21805011000/%D0%A0%D0%B0%D1%81%D1%81%D1%82%D0%BE%D1%8F%D0%BD%D0%B8%D0%B5.rar.html

Тут лежит текстовый файл с заданием и уже написанная задачка в бейсике,но не до конца.

Помогите пожалуйста( у меня паника((((((

Надо было в другой раздел написать(