Дано трёхзначное число, отсортировать разряды в порядке возрастания. пример: 936 369 программа в паскале 7 класс

Var s,i,j:integer; d:array[0..2] of integer;beginwriteln('Введите трёхзначное число');Readln(s);for i:=0 to 2 do begind[i]:= s mod 10;s:=s div 10;writeln(d);end;for j:=1 to 2 do     for i:=1 to 2-j do        if d[i-1] > d[i] then              swap(d[i-1],d[i]); writeln; writeln(d);end.