Поменять местами значение целых переменных A, B, C таким образом, чтобы оказалось A>=B>=С (Паскаль) Пожалуйста

var a,b,c,k:integer;
begin
readln(a,b,c);
if b>a then begin k:=a;a:=b;b:=k end;
if c>a then begin k:=a;a:=c;c:=k end;
if c>b then begin k:=b;b:=c;c:=k end;
writeln(a:9,b:9,c:9); readln
end.