Функции и процедурі

[kuy]

Здравствуйте, помогите написать программу, задание:
Вычислить периметр треугольника, если известны координаты его вершин (x,y,z)
(координаты инициализировать в одномерном массиве)
(использовать функции или процедуры).
Не могу понять как координаты задать, вот на чем остановился:

program Project1;

{$APPTYPE CONSOLE}
uses
  SysUtils;
function perumetr(a,b,c:real):real;
   begin
   perumert:=a+b+c;
   end;
begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

(модераторы отредактируйте название плис на "Функции и процедуры")

[Ghost of Night]

А в чем собственно проблема?
читаем координату и записываем в массив
находим расстояние между точками SQRT(SQR(x2-x1) + SQR(y2-y1) + SQR(z2-z1))
для 3-х сторон и складываем.

[JUDAS]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 T3dPoint = record
  x : double;
  y : double;
  z : double;
 end;

function perimetr(A,B,C : double):double;
begin
  result:=a+b+c;
end;

function Distance(Vertex1, Vertex2 : T3dPoint):double;
begin
 result:=sqrt(sqr(Vertex1.x-Vertex2.x)+
              sqr(Vertex1.y-Vertex2.y)+
              sqr(Vertex1.z-Vertex2.z));
end;

var
  Vertex : array[1..3] of T3dPoint;
  P : double;
begin
  writeln('enter 1 vertex (x y z) ');
  read(Vertex[1].x,Vertex[1].y,Vertex[1].z);
  writeln('enter 2 vertex (x y z) ');
  read(Vertex[2].x,Vertex[2].y,Vertex[2].z);
  writeln('enter 3 vertex (x y z) ');
  read(Vertex[3].x,Vertex[3].y,Vertex[3].z);
  P:= perimetr (Distance(Vertex[1],Vertex[2]),
    Distance(Vertex[2],Vertex[3]),
    Distance(Vertex[3],Vertex[1]));
  writeln('Perimetr = ',p:6:2);

  sleep(15000);
end.