Подпрограмма-прпоцедура

[St1mkA]

Дана задача : Три точки заданы своими декартовыми координатами X=(x1,x2),Y=(y1,y2), Z=(z1,z2) . Вычислить и выдать на печать полярные координаты этих точек. При выдаче на печать координаты точек упорядочить по возрастанию полярного радиуса p. Полярный радиус и полярный угол вычисляются по следующим формулам: p=sqrt(x1*x1+x2*x2); ф=arctan(x2/x1) Перевод в полярные координаты оформить в виде подпрограммы-процедуры.

Помогите пожалуйста, мне нужно сделать так чтобы при выдаче на печать координаты точек упорядочить по возрастанию полярного радиуса p и угол ф перевести в градусы.

Вот мое решение