Даны действительные числа x1, y1, x2, y2, x3, y3. Выясните является треугольник с такими вершинами равносторонний.

Помогите составить программу! Pascal

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]) and (st[2]=st[3]) then write ('треугольник равносторонний') else write ('треугольник не равносторонний') ;

end.