даны 3 числа(а,в,с). Составьте программку, которая меняет местами max и min

Var a,b,c,d:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (agt;b)and(alt;c)or(agt;c)and(alt;b)
 then begin d:=b; b:=c; c:=d; end
 else if (bgt;a)and(blt;c)or(bgt;c)and(blt;a)
       then begin d:=a; a:=c; c:=d; end
       else begin d:=a; a:=b; b:=d; end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.

Пример:
a, b, c:
8 5 2
a = 2 b = 5 c = 8

Var
  a,b,c:integer;
  max,min:integer;
begin
  readln(a,b,c);
  if ((agt;=b)and(agt;=c)and(blt;=c))or((bgt;=a)and(bgt;=c)and(alt;=c)) then swap(a,b)
  else
    if ((agt;=b)and(agt;=c)and(clt;=b))or((cgt;=b)and(cgt;=a)and(alt;=b)) then swap(a,c)
    else
      if ((bgt;=a)and(bgt;=c)and(clt;=a))or((cgt;=b)and(cgt;=a)and(blt;=a)) then swap(b,c);  writeln(a,' ',b,' ',c);
end.