Если значения переменных расположены с возрастанием - удвоить их, иначе изменить на противоположную

//задайте значения переменных
if (a<b) and (b<c) then //условие
begin
//удваиваем их значения
end
else
begin
//меняем на противоположные
end;
//выводим результат

var
  a,b,c:Integer;
  q,s:string;
  i:Integer;
begin
 q:=edt1.text;
 s:='';
if (a<b)and(b<c)then
      2*a<2*b<2*c
       else
  if (a>b)and(a>c)then
  begin
    2*(-a)>2*(-b)>2*(-c);
  end;
 end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:Integer;
begin
memo1.Clear;
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
if (a<b) and (b<c) then
begin
 a:=2*a;
 b:=b*2;
 c:=c*2;
 Memo1.Text:='A='+inttostr(a)+' B='+inttostr(b)+' C='+inttostr(c);
end
else if (a>b) and (b>c) then
begin
 a:=-a;
 b:=-b;
 c:=-c;
 Memo1.Text:='A='+inttostr(a)+' B='+inttostr(b)+' C='+inttostr(c);
end
else Memo1.Text:='×èñëà íå óïîðÿäî÷åíû'
end;