Определить какой из треугольников имеет большую площадь

program noname;
uses Crt;
function S(var a,b,c:Real):Real;
var p:Real;
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
 
function dlina(var ax,ay,bx,by:Real):Real;
begin
dlina:=sqrt(sqr(ax-bx)+sqr(ay-by));
end;
 
var ax,ay,bx,by,cx,cy,dx,dy,ex,ey,fx,fy:Integer;
a,b,c,d,e,f:Real;
begin
ClrScr;
Writeln('Введите координаты точек треугольников ABC и DEF.');
Writeln('Введите координаты точки A:');
Readln(ax,ay);
Writeln('Введите координаты точки B:');
Readln(bx,by);
Writeln('Введите координаты точки C:');
Readln(cx,cy);
Writeln('Введите координаты точки D:');
Readln(dx,dy);
Writeln('Введите координаты точки E:');
Readln(ex,ey);
Writeln('Введите координаты точки F:');
Readln(fx,fy);
if ((ax=bx) and (bx=cx)) or
   ((ay=by) and (by=cy)) or
   ((dx=ex) and (ex=fx)) or
   ((dy=ey) and (ey=fy)) then Writeln('Вы ввели неправильные координаты!!!') else
begin
a:=dlina(ax,ay,bx,by);
b:=dlina(bx,by,cx,cy);
c:=dlina(ax,ay,cx,cy);
d:=dlina(dx,dy,ex,ey);
e:=dlina(ex,ey,fx,fy);
f:=dlina(dx,dy,fx,fy);
if S(a,b,c)>S(d,e,f) then Writeln('S ABC>S DEF') else
if S(a,b,c)<S(d,e,f) then Writeln('S DEF>S ABC') else
if S(a,b,c)=S(d,e,f) then Writeln('S ABC=S DEF');
end;
Readln;
end.