Напечатать три числа x, y, z в порядке возрастания. По алгоритму сравнения — Pascal(Паскаль)

Program PascalGuru;

var
  x, y, z: integer;
  min: integer;

begin
  writeln('VVedite koeficienty X,Y,Z');
  readln(x, y, z);
  writeln;

  min := x;
  if y < min then
    min := y;
  if z < min then
    min := z;

  write(min, ' ');

  if x = min then
    if y < z then
      write(y, ' ', z)
    else
      write(z, ' ', y);

  if y = min then
    if x < z then
      write(x, ' ', z)
    else
      write(z, ' ', x);

  if z = min then
    if y < x then
      write(y, ' ', x)
    else
      write(x, ' ', y);

  readln;

end.