Да... фундаментальный труд, что и говорить... Но вообще-то можно числа упорядочить и попроще, например, методом "пузырька". Вот так:
Код:
VAR
x1,y1,z1,x2,y2,z2:Integer;
BEGIN
Write('x= ');
ReadLn(x1);
Write('y= ');
ReadLn(y1);
Write('z= ');
ReadLn(z1);
If x1>y1 then
begin
x2:=y1;
y2:=x1;
end else
begin
x2:=x1;
y2:=y1;
end;
If y2>z1 then
begin
z2:=y2;
y2:=z1;
end else
z2:=z1;
If x2>y2 then
begin
x1:=x2;
x2:=y2;
y2:=x1;
end;
WriteLn(x2,' ',y2,' ',z2);
ReadLn;
END.