Задается массив из 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.