Помогите срочнооо. Составить программку в паскале

Var   i,t,j, n:integer; b:array[1..20] of integer;s:string;begin    write('Введите число n = ');    readln(n);    repeat    i:= i + 1;        b[i] := (n mod 10); // вывод заключительной числа числа        n:= n div 10; // удаление заключительной числа числа    until n=0;    writeln(b);    for i:= 1 to i do begin    for j:= 2 to i do begin    if b[j-1] lt; b[j] then begin    t:=b[j-1]; b[j-1]:=b[j]; b[j]:=t;    end;    end;    end;    writeln(b);    for t:=1 to i do    s:= s + inttostr(b[t]);    write(s);    end.