Algoritmo para ler três números positivos e escrevê-los em ordem crescente

//Faça um algoritmo para ler três números positivos e escrevê-los em ordem crescente.

program Ordem_de_3;

var x,y,z,auxiliar:integer;

begin

writeln('digite 3 variaveis x,y e z =>');

readln(x,y,z);

writeln(' numeros digitados: x=',x,' y=',y,' z=',z);

if(x>y)or(x>z)

then

if(z>y) then

begin

auxiliar:=x;

x:=y;

y:=auxiliar;

end else

begin

auxiliar:=x;

x:=z;

z:=auxiliar;

end;

if(y>z)

then begin

auxiliar:=y;

y:=z;

z:=auxiliar;

end;

writeln; //para obter um espaco maior dos numeros digitados da resposta!

writeln(' numeros ordenados: x=',x,' y=',y,' z=',z);

readln;

end.