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

Используя подпрограммы-процедуры составить программу для формирования массива элементы которого являются цифры заданного числа n

 type    mas = array [1..10] of integer; var   m : mas;   a,l : integer;  function re () : integer;         //Считываем числоvar    a : integer;  begin   writeln ('Введите число');   readln (a);   Result :=a;  end;    function C(var m : mas; a : integer) : integer;  //Разбиваем на числаvar     i : integer;   begin    i := 0;    While a > 0 do     begin      i := i +1;      m[i] := a mod 10;      a := a div 10;                 end;    Result := i;   end;     procedure wr (a : mas; l : integer);   // Вывод массиваvar     i : integer;   begin   writeln ('Resultat :');     for i := 1 to l do     write (a[i],' ');   end;     procedure sort (var a : mas; l : integer);   // перевернуть массив // т.е 1234 -> 4321    var     i,buf : integer;   begin    for i := 1 to l div 2 do     begin      buf := a[l-i+1];      a[l-i+1] := a[i];      a[i] := buf;     end;   end;  begin  a := re();  l := C(m,a);  sort (m,l);  wr (m,l); end.на примере числа 125после выполнения функции Cm[1] = 5 m[2] =2 m[3] =1после выполнения процедуры Sortm[1] =1 m[2] =2 m[3] =5Вывод на экран элементов массива через пробел1 2 5