Равнобедренный треугольник!

[pashqa]

Пусть даны координаты трех точек на плоскости.Если они могут быть вершинами равнобедренного тупоугольного треугольника,вычислите его площадь.Выведите длины сторон и площадь в порядке возрастания значений. помогите переделать чуток задачу написанную мной под это условие...

uses crt;
var a1, a2, b1, b2, c1, c2:integer;
    ab, ac, bc, s, p, cosA, cosB, cosC:real;
begin
clrscr;
write('Vvedite a1, a2');
readln(a1, a2);
write('Vvedite b1, b2');
readln(b1, b2);
write('Vvedite c1, c2');
readln(c1, c2);
ab:=sqrt(sqr(a1-b1)+sqr(a2-b2));
ac:=sqrt(sqr(a1-c1)+sqr(a2-c2));
bc:=sqrt(sqr(b1-c1)+sqr(b2-c2));
if (ab+bc>ac) and (bc+ac>ab) and (ac+ab>bc) then
   begin
   cosA:=(sqr(ab)+sqr(ac)-sqr(bc))/2*ab*ac;
   cosB:=(sqr(ab)+sqr(bc)-sqr(ac))/2*ab*bc;
   cosC:=(sqr(bc)+sqr(ac)-sqr(ab))/2*bc*ac;
   if (cosA<0) or (cosB<0) or (cosC<0) and (ab<>ac) and (ab<>bc) and (bc<>ac) then
      begin
      p:=(ab+bc+ac)/2;
      s:=sqrt(p*(p-ab)*(p-bc)*(p-ac));
      writeln('Площадь равна ', s:5:5);
      end
   else writeln('Треугольник не является разносторонним тупоугольным!');
   end
else writeln('Такого треугольника не существует!');
readln;
end.

[pashqa]

ну что кто-нибудь поможет?

[Hacker19_90]

Тебе типо значения надо вывести по возрастанию???

[pashqa]

Сообщение от Hacker19_90

Тебе типо значения надо вывести по возрастанию???

да,и еще на равнобедренность проверить...