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

Program n1;

var kord: array[1 ... 6] of real;

st: array [1 ... 3] of real;

i: integer;

begin

i:=1;

while i<=6 do

begin

write ('введите координаты точки через пробел: ') ;

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.