Исправил вверху программу, если неправильно, то скажи где описывать процедуру