Определите что представляет из себя четырехугольник: ромб, прямоугольник, квадрат, трапеция

program lab6_2;
uses crt;
     var x1,x2,x3,x4,y1,y2,y3,y4: integer;
         kvadr: boolean;
         l1,l2,l3,l4,l5,d,k1,k2,k3,k4: real;
BEGIN
 
     writeln('введите координаты первой вершины');
     readln(x1,y1);
     writeln('введите координаты второй вершины');
     readln(x2,y2);
     writeln('введите координаты третьей вершины');
     readln(x3,y3);
     writeln('введите координаты четвертой вершины');
     readln(x4,y4);
     l1:=sqrt(sqr(x1-x1)+sqr(y2-y1));
     l2:=sqrt(sqr(x3-x2)+sqr(y3-y2));
     l3:=sqrt(sqr(x3-x4)+sqr(y3-y4));
     l4:=sqrt(sqr(x4-x1)+sqr(y4-y1));
     l5:=sqrt(sqr(x2-x4)+sqr(y2-y4));
 
 
     d:=sqrt(sqr(x3-x1)+sqr(y3-y1));
     if (l1=l2) and (l2=l3) and (l3=l4) and (sqr(l5)+sqr(l4)=4*sqr(l1))then
 
 
        writeln('Четырехугольник является квадратом');
 
     if (l1=l2) and (l2=l3) and (l3=1) and (4*sqrt(2)<>d) then
        writeln('Четырехугольник является ромбом');
     if((l1<>l4) and (l3<>l4)) and ((x4-x1)*(y3-y2)=(x3-x2)*(y1-y4)) or ((x2-x1)*(y4-y3)=(x4-x3)*(y2-y4)) then
     writeln('Четырехугольник является трапецией');
END.

uses crt;
const t=0.0001;
function Dlina(x1,y1,x2,y2:integer):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
function IsParl(x1,y1,x2,y2,x3,y3,x4,y4:integer):boolean;
begin
IsParl:=(y2-y1)*(x4-x3)=(y4-y3)*(x2-x1);
end;
var x1,y1,x2,y2,x3,y3,x4,y4:integer;
    ab,bc,cd,da,ac,bd:real;
begin
clrscr;
writeln('Введите последовательно координаты 4х точек:');
write('A:  ');readln(x1,y1);
write('B:  ');readln(x2,y2);
write('C:  ');readln(x3,y3);
write('D:  ');readln(x4,y4);
ab:=Dlina(x1,y1,x2,y2);
bc:=Dlina(x2,y2,x3,y3);
cd:=Dlina(x3,y3,x4,y4);
da:=Dlina(x4,y4,x1,y1);
ac:=Dlina(x1,y1,x3,y3);
bd:=Dlina(x2,y2,x4,y4);
{обе пары не параллельны}
if not IsParl(x1,y1,x2,y2,x3,y3,x4,y4)and not IsParl(x2,y2,x3,y3,x1,y1,x4,y4)
   then write('Произвольный четырехугольник')
{одна пара параллельна, вторая нет}
else if (IsParl(x1,y1,x2,y2,x3,y3,x4,y4)and not IsParl(x2,y2,x3,y3,x1,y1,x4,y4))
     or (not IsParl(x1,y1,x2,y2,x3,y3,x4,y4) and IsParl(x2,y2,x3,y3,x1,y1,x4,y4))
   then write('Трапеция')
{обе пары параллельны}
else if IsParl(x1,y1,x2,y2,x3,y3,x4,y4)and IsParl(x2,y2,x3,y3,x1,y1,x4,y4) then
 begin
  {стороны не равны и диагонали не равны}
  if ((abs(ab-bc)>t)and(abs(ac-bd)>t)) then write('Параллелограмм')
  {стороны не равны, а диагонали равны}
  else if ((abs(ab-bc)>t)and(abs(ac-bd)<t)) then write('Прямоугольник')
  {стороны равны, а диагонали не равны}
  else if ((abs(ab-bc)<t)and(abs(ac-bd)>t)) then write('Ромб')
  {стороны равны и диагонали равны}
  else if ((abs(ab-bc)<t)and(abs(ac-bd)<t)) then write('Квадрат');
 end;
readln
end.