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

[Lint]

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

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

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

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

[Lint]

Попробовал написать саму функцию,
покажите плс ошибки и как вообще ее правильно реализовать

 
Program Triangles;
Uses Crt;

const N=50;

Type Vershina=Record
     x:array[1..3] of real;
     End;

Type TData=array[1..3] of Vershina;

Type Tlist=^Triangle;
     Triangle=record
      Data:TData;
      Next:Tlist;
     end;

Var List,Head:array[1..N] of Tlist;
    TriangleData:TData;
    i,j:integer;
    p:integer;
    z:integer;

Function Add(Var Head:TList; const Data:TData):boolean;
var NewElem:TList;
Begin
 New(NewElem);
 If NewElem<>Nil then
  Begin
   NewElem^.Data:=Data;
   NewElem^.Next:=Head;
   Head:=NewElem;
   Add:=True;
  End
   else
   Add:=false;
end;



Procedure AddTriangle;
 var
  Flag:boolean;
  key:string;
Begin
    Begin
     p:=1;
     Flag:=true;
      while Flag=true do
       Begin
        For i:=1 to 3 do
         Begin
             writeln('vershina',i,' :');
             For j:=1 to 3 do
             Begin
              write('vvedite koordinatu vershini X',j,'=');
              Read(TriangleData[i].x[j]);
             End;
         End;
       Add(Head[p],TriangleData);
       writeln('kolichestvo treugolnikov:',p);
       p:=p+1;
       writeln('hotite dobavit eshe treugolnik?[y/n]');
       key:=readkey;
       If (key='n') then
        Flag:=false;
       End;
    End;
End;


Procedure Print(List:Tlist);
var Flag:boolean;
    Elem:TList;
Begin
     Flag:=true;
     Elem:=List;
     While Elem<>nil do
      Begin
        for i:=1 to 3 do
         Begin
          writeln('vershina',i,' :');
             for j:=1 to 3 do
              write('X',j,'=',Elem^.Data[i].x[j]:5:2,' ; ');
              writeln;
         end;
     Elem:=Elem^.next;
     End;
End;

Procedure Initialize;
Begin
 For i:=1 to 3 do
    Begin
     New(Head[i]);
     Head[i]:=nil;
    End;
End;

Procedure Tp(var a:TData);
var
b:TData;

Begin
 if (sqr(b[1].x[1])+sqr(b[1].x[2])+sqr(b[1].x[3]))>(sqr(b[2].x[1])+sqr(b[2].x[2])+sqr(b[2].x[3])) then
  Begin
   b[1]:=a[2];
   b[2]:=a[1];
   a[1]:=b[1];
   a[2]:=b[2];
  end;
 if (sqr(b[1].x[1])+sqr(b[1].x[2])+sqr(b[1].x[3]))>(sqr(b[3].x[1])+sqr(b[3].x[2])+sqr(b[3].x[3])) then
  Begin
   b[1]:=a[3];
   b[3]:=a[1];
   a[1]:=b[1];
   a[3]:=b[3];
  End;
  if (sqr(b[2].x[1])+sqr(b[2].x[2])+sqr(b[2].x[3]))>(sqr(b[3].x[1])+sqr(b[3].x[2])+sqr(b[3].x[3])) then
  Begin
   b[2]:=a[3];
   b[3]:=a[2];
   a[2]:=b[2];
   a[3]:=b[3];
  End;
 End;

Begin
 Initialize;
 clrscr;
 AddTriangle;
 for z:=1 to p do
 Begin
  Print(Head[z]);
 End;
 Tp(TriangleData);
 for z:=1 to p do
 Begin
  Print(Head[z]);
 End;
 readkey;
End.