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

Используя подпрограммы-процедуры составить программу для формирования массива элементы которого являются цифры заданного числа 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

после выполнения функции C

m[1] = 5 m[2] = 2 m[3] = 1

после выполнения процедуры Sort

m[1] = 1 m[2] = 2 m[3] = 5

Вывод на экран элементов массива через пробел

1 2 5