Задается массив из n натуральных чисел. Найти сумму чисел в которых цифры упорядочены по возрастанию. Язык - паскаль. Задачу сделать надо через функцию

Const

n = 10;

var

a: array[1 ... n] of integer;

i: integer;

function sum: integer;

var

tmp, prev, cur, s, i: integer;

flg: boolean;

begin

s : = 0;

for i : = 1 to n do

begin

flg : = true;

tmp : = a[i];

prev : = 9;

cur : = 0;

while tmp > 0 do

begin

cur : = tmp mod 10;

if cur > prev then

begin

flg : = false;

break;

end;

prev : = cur;

tmp : = tmp div 10;

end;

if flg then inc (s) ;

end;

sum : = s;

end;

begin

writeln ('Исходный массив: ') ;

for i : = 1 to n do

begin

a[i] : = random (1000) ;

write (a[i], ' ') ;

end;

writeln;

writeln ('Ответ: ', sum) ;

end.