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

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

begin;
  x := random(16);
  y := random(19);
  z := random(10);
  writeln(x, ' ', y, ' ', z);
  max := x;
  if y > max then
    max := y;
  if z > max then
    max := z;
  min := x;
  if y < min then
    min := y;
  if z < min then
    min := z;
  srd := x + y + z - max - min;
  write(max, ' ', srd, ' ', min);

end.