Viết chương trình con để kiểm tra tính chất của tam giác ?

program tam_giac;

uses crt;

var a,b,c:integer;

{---Chuong-trinh-con---}

function kt(a,b,c:integer):boolean;

begin

      if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a)

            then kt:=true

                  else kt:=false;

end;

{---Chuong-trinh-chinh---}

BEGIN

      clrscr;

      write('Nhap so dai canh thu nhat: ');  readln(a);

      write('Nhap so dai canh thu hai: ');  readln(b);

      write('Nhap so dai canh thu ba: ');  readln(c);

     if kt(a,b,c) then write('La ba canh cua tam giac')

           else write('Khong phai la ba canh cua tam giac');

     readln;

end.

uses crt;
var a,b,c:extended;
{---Kiem-tra---}
function check(a,b,c:extended):boolean;
      begin
            if (a>0) and (b>0) and (c>0) and ((a+b)>c) and ((b+c)>a) and ((a+c)>b) then
                  begin
                        check:=true;
                        write('3 canh vua nhap la 3 canh tam giac');
                  end
            else begin
                  check:=false;
                  write('3 canh vua nhap khong phai la 3 canh tam giac');
                  exit;
            end;
      end;
{---Chuong-trinh-chinh---}
BEGIN
      clrscr;
      write('Nhap 3 canh tam giac: '); readln(a,b,c);
      check(a,b,c);
      readln;
END.