Значения переменных X,Y,Z поменять местами так, что бы они оказались упорядоченными по возрастанию — Pascal(Паскаль)

var
  a: array [1 .. 3] of integer;
  i, j, b: integer;

begin
  readln(a[1], a[2], a[3]);

  for i := 1 to 2 do
    for j := 1 to 3 - i do
      if a[j] > a[j + 1] then
      begin
        b := a[j];
        a[j] := a[j + 1];
        a[j + 1] := b;
      end;

  for i := 1 to 3 do
    write(a[i], ' ');

end.