Проверка на трапецию

[kJlaCuk]

Заданы координаты вершин четырехугольника x1, y1, x2, y2, x3, y3, x4, y4>=0. Составить программу, которая рисует на экране этот четырехугольник (рисунок должен быть масштабирован так, чтобы занимал большую часть экрана) и определяет, является ли данный четырехугольник трапецией
использовать теорему косинусов и формулу
Помогите добавить проверку на определение трапеции

Program za4et_2;
uses crt, Graph;
 var
 x:array[0..4] of integer;
 y:array[0..4] of integer;
 i:byte; d1,d2,d3,d4:real;
 d,e,r: integer;
begin
clrscr;
writeln('Vvedite poocheredno koordinati menishe 100');
for i:=1 to 4 do
begin
write('X',i,'='); readln(x[i]);
 if x[i]>100 then
  repeat
  writeln('Vi v spoem yme? Vvedite norm koordinatu');
  write('X',i,'='); readln(x[i]);
  until(x[i]<=100);
write('Y',i,'='); readln(y[i]);
 if y[i]>100 then
  repeat
  writeln('Vi v spoem yme? Vvedite norm koordinatu');
  write('Y',i,'='); readln(y[i]);
  until((y[i]<=100))and(y[i]<>0);
end;

 clrscr;
  d:=Detect;
  InitGraph(d,r,'');
  e:=GraphResult;
  if e <> grOK then
  begin
    Writeln ('Error');
    readln;
    halt;
  end;

d1:=sqrt(sqr(x[2]-x[1])+sqr(y[2]-y[1]));
d2:=sqrt(sqr(x[3]-x[2])+sqr(y[3]-y[2]));
d3:=sqrt(sqr(x[4]-x[3])+sqr(y[4]-y[3]));
d4:=sqrt(sqr(x[1]-x[4])+sqr(y[1]-y[4]));
d1:=d1+d2+d3+d4;

if (d1*2<(GetMaxX div 4))and(d1*2<(GetMaxY div 4)) then
r:=40 else
if (d1*2<(GetMaxX div 3))and(d1*2<(GetMaxY div 3)) then
r:=30 else
if (d1*2<(GetMaxX div 2))and(d1*2<(GetMaxY div 2)) then
r:=20 else r:=10;
line (x[1]*r,y[1]*r,x[2]*r,y[2]*r);
line (x[2]*r,y[2]*r,x[3]*r,y[3]*r);
line (x[3]*r,y[3]*r,x[4]*r,y[4]*r);
line (x[4]*r,y[4]*r,x[1]*r,y[1]*r);


readln;
end.

[kJlaCuk]

Или подскачите как лучше исправить эту часть программы, чтобы в графическом экране рисовалась фигура по заданным точка с маштабированием

[kJlaCuk]

как я понял задачка мне на зачёт попалась геморойная, раз никто ниче не подсказал, ну и ладно последняя просьба как темы удалять? всё равно уже толку от неё нету. Завтра буду сдовать то что получилось