Помогите с кодом программы в Delphi 7

Помогите с кодом программы в Delphi 7
цель программы такова: пользователь вводит 3 числа, а программа определяет может ли быть эти цифры сторонами прямоугольного треугольника, если да, то выводит площадь и цифры в порядке возрастания. вот как раз с последним у меня проблема. Никак не получается. Помогите)
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,S,p,w: integer;
d: boolean;

begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
//Label6.Caption:=FloatToStr(S);

if ((c*c=a*a+b*b)

or (a*a=b*b+c*c)

or (b*b=c*c+a*a))
then d:=TRUE
else d:=FALSE;

If d=TRUE
then ShowMessage ('Треугольник прямоугольный')
else ShowMessage ('Треугольник непрямоугольный');
if d=True then
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Label6.Caption:=FloatToStr(S);
end;

  • if (a < b ) and ( a < c ) then begin write(a); if b < c then write(b,c) else write(c,b)
    else и т.д.