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

Var 
  a,b,c,max: integer;
begin
  write ('введите а,b,c через пробел: ');
  readln (a,b,c);
  if agt;b 
    then
      if agt;c 
        then begin max:=a; a:=-a end
        else begin max:=c; c:=-c end
    else
      if bgt;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