Паскаль, по координатам трех вершин некоторого треугольника найдите его периметр,если такой треугольник существует

ого,мы так ещо не проходили,через kord.array

Program n1;var kord: array[1..6] of real;st: array [1..3] of real;i: integer;begini:=1;while i<=6 dobeginwrite('введите координаты точки через пробел: ');readln(kord[i],kord[i+1]);i:=i+2;end;st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');end.