не могу найти ошибку

procedure TForm1.Button1Click(Sender: TObject);
var res,d,s:real;
i,q:integer;
Ar:array [0..2] of real;
begin
ar[0]:=3;
ar[1]:=2;
ar[2]:=4;
if not( (abs(ar[0]-ar[1])<ar[2]) and (ar[2]<(ar[0] + ar[1])) ) then
begin
ShowMessage('Это не треугольник');
Exit;
end;
for i:=0 to 1 do
begin
for q:=0 to 2 do
begin
if Ar>Ar[q] then
begin
d:=Ar;
Ar:=Ar[q];
Ar[q]:=d;
end;
end;
end;

res:=(sqr(ar[0]) - sqr(ar[1]) - sqr(ar[2]))/(-2 * ar[1] * ar[2]);
if res > 0 then
begin
s:=0.5 * ar[0] * ar[1] * sqrt(1-sqr(res));
ShowMessage('S='+floattostr(s));
end else
begin
ShowMessage('Треугольник не остроугольный');
Exit;
end;
end;