Переписать задачу из паскаля на СИ

[Drago56]

uses crt;
var h,i,m,x,n:integer; a:array[1..10] of byte; st: string;
begin
writeln('Введите скоко значений в числе');
readln(m);
writeln('Введите число');
readln(n);
writeln;
writeln('Отсартированное число');
i:=1;
while n<>0 do
begin
x:= n mod 10;
a[i]:=x;
n := n div 10;
inc(i);
end;
for i:=1 to m do
if a[i]<a[i+1] then
begin
h:=a[i];
a[i]:=a[i+1];
a[i+1]:=h;
end;
for i:=1 to m do
st:=st+inttostr(a[i]);
write(strtoint(st));
end.

[ACE Valery]

Сначала учимся говорить слово "пожалуйста"
И оформлять код тегом [code]