Diagonalen beim Rechteck

[Marcy]

Hallo,

wir sollen für die Schule ein Programm schreiben, dass die Diagonalen beim Rechteck berechnet.

Hab den Code geschrieben, keine Fehlermeldungen, Zahlen eingeben ect funktioniert auch prima es kommt auch ein Ergebnis raus, leider ist dieses immer falsch

Code:

procedure TDiagonalenRechteck.RechnenButtonClick(Sender: TObject);
var laenge, breite :integer; diagonale: real;

begin
     laenge:= strToInt(laengeEdit.text);
     breite:= strToInt(laengeEdit.text);
     laenge:=laenge*laenge;
     breite:=breite*breite;
     diagonale:= laenge+breite;
     diagonale:=sqrt(diagonale);
     ErgebnisLabel.Caption:=floatTostr(diagonale);
end;

ich würde mich echt freuen wenn ihr mir helfen könnt

alles liebe

Marcy