einfaches Rechenproblem

[STS301]

hi

In der Schule sollen wir einen einfachen Flächenberechner machen, nur wo liegt bei dem Quellcode der Fehler:

Delphi-Quellcode:

var
  a,b,c,d: integer;
begin
...
  else if drei = true then //drei:boolean
    begin
      a:= StrToInt(lengh.text);
      b:= StrToInt(brigh.Text);
      c:= a*b;
      d:= c/2; //Inkompatible Typen: 'Integer' und 'Extended'
      final.Caption:= IntToStr(d);
    end
  else if kreis = true then //kreis:boolean
    begin
      a:= StrToInt(lengh.Text);
      b:= StrToInt(brigh.Text);
      c:= a*3.41592654; //Inkompatible Typen: 'Integer' und 'Extended'
      final.Caption:= IntToStr(c/2);//  Es gibt keine überladene Version von 'IntToStr', die man mit diesen Argumenten aufrufen kann
    end;

Wo list da der Wurm?