Переделать задачу, есть готовая задача, но нужно переделать её с процедурами! Опции

[Pavel]

Помогите! С вашей помощью я только смогу преодолеть зачётную неделю!!!

В общем есть готовая задача(написанная мной!), но она написана без процедур! Помогите её переделать!

Вот формулировка задачи(если нужно!):

Если все точки плоскости, заданные своими координатами, попадают в круг с радиусом К и центром в начале координат, огтределять их средшою абсциссу и ординату, иначе распеча тать номера точек, нё попавших в заданный круг.