Значения переменных X, Y, Z поменять местами

так, чтобы они оказались упорядоченными по возрастанию.

var a: array[1 ... 3] of integer;

i, j, b: integer;

begin

writeln ('Vvedite 3 chisla') ;

readln (a[1], a[2], a[3]) ;

for i: = 1 to 2 do for j: = 1 to 3-i do if a[j]>a[j+1] then

begin

b: = a[j];

a[j]: = a[j+1];

a[j+1]: = b;

end;

for i: = 1 to 3 do write (a[i],' ') ;

readln;

end.