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

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 -4max = -2a = -5, b = 2, c = -4