Функция.Периметр треугольника, Досчитать!

[--Sashok--]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  var ab,bc,ca,x,y,z:real;
 function(integer i,j):real;
begin
 
  for i:=1 to 3 do
  readln(x[i],y[i],z[i])

 function := sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j])+sqr(z[i]-z[j]));
 end;

 begin

 p := ab + bc + ca
 writeln('периметр равен',p)
 end;
end.

Надо посчитать периметр, тем более
координаты заданы! - А(x1,y1,z1),B(x2,y2,x2),C(x3,y3,z3) .

надо воспользоваться формулой
P=AB+BC+AC, де AB=√(x1-x2)в квадрате + (y1-y2)в квадрате + (z1-z2)в квадрате.


Что то не правильно прописал и выкидывает ошибку, плиз помогите заранее благодарен!

[Abstraction]

Возможно, я ошибаюсь, но по-моему объявление переменной x не похоже на объявление массива.

[Serge_Bliznykov]

Сообщение от Abstraction

объявление переменной x не похоже на объявление массива.

Abstraction, +1

так же, как и Y и Z...

а ешё потрясает описание и тело функции БЕЗ ИМЕНИ

ставит в тупик описание переменных после основного begin

да и там, где X[i],Y[i],Z[i] используются, уже нет цикла по i

короче, это не код, а одно сплошное недоразумение!

попробуйте такой код:

{$APPTYPE CONSOLE}
uses
  SysUtils;

type T3DPoint = record
  X: Longint;
  Y: Longint;
  Z: Longint;
end;


function Rasstoyanie(p1, p2 : T3DPoint) : real;
begin
 Result := sqrt(sqr(p1.X-p2.X)+sqr(p1.Y-p2.Y)+sqr(p1.Z-p2.z));
end;

procedure ReadPointCoordinate(PromptText : string; var p1 : T3DPoint);
begin
  Write(PromptText);
  Readln(p1.X, p1.Y, p1.Z);
end;

var ab,bc,ca, p : real;
   A, B, C : T3DPoint;

begin

  WriteLn;
  ReadPointCoordinate('Enter point A coordinate (x y z):', A);
  ReadPointCoordinate('Enter point B coordinate (x y z):', B);
  ReadPointCoordinate('Enter point C coordinate (x y z):', C);

  ab := Rasstoyanie(A, B);
  bc := Rasstoyanie(B, C);
  ca := Rasstoyanie(C, A);

  p := ab + bc + ca;
  writeln('Perimeter is ',p:12:4);
  Readln
end.