Значение переменных x, y, z поменять местами так, чтобы они были упорядочены по возрастанию. (написать программу в Паскале)

varmax,min,x,y,z:integer;beginreadln(x,y,z);//Найдём максимумif (x>y) AND (x>z) thenmax:=xelseif (y>x) AND (y>z) thenmax:=yelsemax:=z;//Найдём минимумif (x<y) AND (x<z) thenmin:=xelseif (y<x) AND (y<z) thenmin:=yelsemin:=z;//Результатif (x<>min) AND (x<>max) thenwriteln(min,' ',x,' ',max)elseif (y<>min) AND (y<>max) thenwriteln(min,' ',y,' ',max)elsewriteln(min,' ',z,' ',max)end.