Задача на списки, помогите плс решить задачу Опции

[Lint]

Проблема с такой задачей:

Создать на статической памяти список треугольников, задаваемых структурой, содержащей координаты 3-х вершин треугольника в 3-хмерном пространстве. Порядок вершин произволен.
Реализовать функцию, модифицирующую каждый из треугольников таким образом, чтобы вершины были перечислены по возрастанию расстояния от начала координат.

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

P.S. Заранее благодарен за помощь

[volvo]

Печатать надо, начиная с первого элемента, а не неизвестно откуда:

...
 Print(Head[1]);
...