Боюсь, что если вы начнете описывать процедуру, ошибок только добавится.

Напишите полностью исправленный код программы, будем избавляться от ошибок.