Разбитие на процедуры(СРОЧНО), Заплачу если мне помогут Опции

[warning777]

У меня проблема, есть готовая программа но ее надо разбить на процедуры,программа рабочая.
Моя ася 5515795 заплачу 50р
Сдавать послезавтра !

[sintanial]

Ураааа, хоть это получилось =). Щас сделаю все что в моих силах =) . По хорошему процедуры нужно уметь делать самому =)

Добавлено через 11 мин.
Варнинг, покажи где именно нужно делать процедуры. Те комментарии можешь удалить =), лучше поставь коменты где надо делать процедуры. Потому что там не везде нужны процедуры, в некоторых случаях нужны функции

Добавлено через 13 мин.
Слухай а у тя прога вообще правельно пашет ?

 z:=k;                       {сортировка по возрастанию}
    for k:=1 to k do           
    for j:=1 to z-1 do

Как это так ? сначало k:=1 а потом делаем цикл до k. Он все время вроде будет выполняться один раз. Если я ошибаюсь то поправь =) !