Задача про треугольник. Найти ошибку

      var a,b,c: real;
          s:real;
begin
       writeln('vvedite chisla');
 readln(a,b,c);
   if (a>=0) and (b>=0) and (c>=0) then //âîçìîæíîñòü áûòü ñòîðîíîé òðåóãîëüíèêà
     if (sqrt(c)=sqr(a)+sqr(b)) then //ïèôàãîðîì ïðîâåðÿåì ïðÿìîóãîëüíèê ëè
      if (a <= b) and (a <= c) then
       if (b <= c) then
           writeln (a,' ',b,' ',c)
   else
           writeln (a,' ',c,' ',b)
     else
        if (b <= a) and (b <= c) then
         if (a <= c) then
           writeln (b,' ',a,' ',c)
      else
           writeln (b,' ',c,' ',a)
       else
         if (a <= b) then
           writeln (c,' ',a,' ',b)
         else writeln (c,' ',b,' ',a)
        else
        writeln(' Neverno ykazali storony ');
        s:=(1/2)*a*b;
  writeln('S treygolnika =',s);
end.

uses crt;
var a,b,c,mn,md,mx,p,s:real;
    f:boolean;
begin
clrscr;
f:=true;
writeln('Введите 3 числа:');
readln(a,b,c);
if(a<=0)or(b<=0)or(c<=0){не положительные}
or(a+b<=c)or(a+c<=b)or(b+c<=a){или одна сторона больше или равна сумме двух других}
then f:=false {нет}
else
 begin
  {отсортируем стороны}
  mx:=a;
  if b>mx then mx:=b;
  if c>mx then mx:=c;
  mn:=a;
  if b<mn then mn:=b;
  if c<mn then mn:=c;
  md:=a+b+c-mn-mx;
  if mn*mn+md*md<>mx*mx{если больший угол не прямой}
  then f:=false;
 end;
if not f then writeln('Числа не могут быть сторонами прямоугольного треугольника')
else
 begin
  writeln('Числа могут быть сторонами прямоугольного треугольника');
  writeln('Длины сторон в порядке возрастания:');
  writeln(mn:0:2,' ',md:0:2,' ',mx:0:2);
  s:=mn*md/2;
  write('Площадь треугольника=',s:0:2);
 end;
readln
end.