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

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