Turbo pascal - Program oblicza promień koła wpisanego w trójkąt prostokątny

uses crt;
var a,b,c,min2,min1,

max:integer;
promien:real;

begin
Writeln('Program oblicza promien okregu wpisanego w trojkat prostokatny !!!');
Write('Podaj wartosc boku a : ');
readln(a);
Write('Podaj wartosc boku b : ');
readln(b);
Write('Podaj wartosc boku c : ');
readln(c);

if (a>=b)and(a>=c)then begin
                        max:=a;
                        min1:=b;
                        min2:=c;
                       end;

if (b>=c)and(b>=a)then begin
                        max:=b;
                        min1:=a;
                        min2:=c;
                       end;


if (c>=b)and(c>=a)then begin
                        max:=c;
                        min1:=b;
                        min2:=a;
                       end;

if max<>sqrt(sqr(min1)+sqr(min2))then 

begin {twierdzenie pitagorasa}
writeln('Trojkat nie jest prostokatny !!!');
halt; {koniec}
end;

Writeln('Promien okregu wpisanego w trojkat     : ',(min1+min2-max)/2:0:4);
readln;
end.