Даны три числа . найти большее из них и изменить его знак на противоположный

Var 
  a,b,c,max: integer;
begin
  write (введите а,b,c через пробел: );
  readln (a,b,c);
  if a>b 
    then
      if a>c 
        then begin max:=a; a:=-a end
        else begin max:=c; c:=-c end
    else
      if b>c 
        then begin max:=b; b:=-b end
        else begin max:=c; c:=-c end;      
  writeln;
  writeln (max = ,max);
  writeln (a = ,a,, b = ,b,, c = ,c);
end.
---------------------------------------------
Пример:
введите а,b,c через пробел: -5 -2 -4
max = -2
a = -5, b = 2, c = -4