Определить вид треугольника: остроугольный, прямоугольный, тупоугольный - Free Pascal

uses crt;
var a,b,c,d,e,mx,sr,mn:integer;
begin
clrscr;
repeat
writeln('Введите длины досок');
readln(a,b,c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)
then writeln('Вы неверно измерили длины, повторите');
until (a+b>c)and(a+c>b)and(b+c>a);
if a>b then mx:=a else mx:=b;
if c>mx then mx:=c;
if a<b then mn:=a else mn:=b;
if c<mn then mn:=c;
sr:=a+b+c-mx-mn;
d:=mn*mn+sr*sr;
e:=mx*mx;
if d>e then writeln('Это остроугольный треугольник')
else if d<e then writeln('Это тупоугольный треугольник')
else if d=e then writeln('Это прямоугольный треугольник');
readln
end.