В чем ошибка?

[INFRON]

В чем ошибка? останавливается на
else

var a,b,c:real;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
if (a>b) and (b>c) or (a<b) and (b<c)  then
a:=a*2;
b:=b*2 ;
c:=c*2

else
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);

edit4.Text:=floattostr(a);
edit5.Text:=floattostr(b);
edit6.Text:=floattostr(c);

[Florento]

var a,b,c:real;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
if (a>b) and (b>c) or (a<b) and (b<c) then
begin
a:=a*2;
b:=b*2 ;
c:=c*2 ;
end

else
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);
end;

попробуй так

[INFRON]

Пасипа, работает.

var a,b,c:real;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
if (a>b) and (b>c) or (a<b) and (b<c)  then
begin
a:=a*2;
b:=b*2;
c:=c*2;
end
 else
if (a<b) and (b>c) or (a>b) and (b<c)  then
begin
a:=a*(-1);
b:=b*(-1);
c:=c*(-1);
 end;
edit4.Text:=floattostr(a);
edit5.Text:=floattostr(b);
edit6.Text:=floattostr(c);
end;
end.