Дан 4-х угольник С координатами вершин своих сторон

//если у 4-х угольника диагонали равны, тогда этот 4-х угольник называется квадратом
program koord;
uses crt;
var
  x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
  clrscr;
  writeln('vvedite koordinati tochek kvadrata ABCD cherez enter( x, enter, y, enter, x, enter...)');
  writeln;
  readln(x1);
  readln(y1);
  readln(x2);
  readln(y2);
  readln(x3);
  readln(y3);
  readln(x4);
  readln(y4);
  if sqrt(sqr(x4-x2)+sqr(y4-y2))=sqrt(sqr(x3-x1)+sqr(y3-y1)) then
  writeln('da eto taki kvadrat')
  else
  writeln('net eto ne kvadrat');
  readln
end.

program koord;
uses crt;
var
  x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
  clrscr;
  writeln('vvedite koordinati tochek kvadrata ABCD cherez enter( x, enter, y, enter, x, enter...)');
  writeln;
  readln(x1);
  readln(y1);
  readln(x2);
  readln(y2);
  readln(x3);
  readln(y3);
  readln(x4);
  readln(y4);
  if (sqrt(sqr(x4-x2)+sqr(y4-y2))=sqrt(sqr(x3-x1)+sqr(y3-y1)))
   and (sqrt(sqr(x2-x1)+sqr(y2-y1))=sqrt(sqr(x3-x2)+sqr(y3-y2)))
   and (sqrt(sqr(x4-x3)+sqr(y4-y3))=sqrt(sqr(x4-x1)+sqr(y4-y1))) then
  writeln('da eto taki kvadrat')
  else
  writeln('net eto ne kvadrat');
  readln
end.

uses crt;
const t=0.000001;
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var p:array[1..2,1..4] of real;{массив точек}
    d:array[1..6] of real;{массив длин сторон и диагоналей}
    i,j,k:byte;
    x:real;
begin
clrscr;
writeln('Vvedite koordinaty 1 tochki:');
readln(p[1,1],p[2,1]);
writeln('Vvedite koordinaty 2 tochki:');
readln(p[1,2],p[2,2]);
writeln('Vvedite koordinaty 3 tochki:');
readln(p[1,3],p[2,3]);
writeln('Vvedite koordinaty 4 tochki:');
readln(p[1,4],p[2,4]);
k:=0;
for i:=1 to 3 do
for j:=i+1 to 4 do
 begin
  k:=k+1;
  d[k]:=Dlina(p[1,i],p[2,i],p[1,j],p[2,j]);{делаем массив длин}
 end;
for i:=1 to 5 do
for j:=i+1 to 6 do
if d[i]>d[j] then{сортируем по возрастанию}
 begin
  x:=d[i];
  d[i]:=d[j];
  d[j]:=x;
 end;
{длины сторон и диагоналей}
for i:=1 to 6 do
write(d[i]:5:2);
writeln;
if (abs(d[1]-d[2])<t)and(abs(d[2]-d[3])<t)and(abs(d[3]-d[4])<t)
and(abs(d[5]-d[6])<t)
then write('Yes!') else write('No!');
readln
end.