Массив: Найти элементы массива из натуральных чисел, сумма цифр которых равна 5.

program Zadanie110;
type
  Tarr = array[1..20] of integer;
 
procedure RandomInArr(var arr:Tarr; narr,gr1,gr2: integer);
var // Процедура для заполнения массива случайными числами и вывода их на экран.
  i: integer;
begin
  for i:= 1 to narr do
     begin
     arr[i]:= gr1 + random(gr2 - gr1+1);
     write(arr[i],' ');
     end;
writeln;
end;
 
function Otr (arr: Tarr; narr: integer): boolean;
var // Функция для нахождения в ней элементов с отрицательным значением.
  i: integer;
  reg: boolean;
begin
reg:= false;
for i:= 1 to narr do
   if arr[i] < 0 then
     reg:= true;
  Otr:= reg;
end;
 
function sumdig(a:integer): integer;
var  // Функция, вычисляющая сумму цифр числа.
  sum: integer;
begin
 sum := 0;
 while a > 0 do
 begin
   sum := sum + a mod 10;
   a := a div 10;
 end;
  sumdig:= sum;
end;
 
procedure naturelem (arr:Tarr; narr, sumdigit: integer);
var // Процедура для поиска и вывода на экран элементов с числами, сумма цифр, которых равна 5.
  i: integer;
begin
  for i:=1 to narr do
    begin
      if arr[i] > 0 then
        if sumdig(arr[i]) = sumdigit then
          write(arr[i],' ');
    end;
writeln;
end;
 
var
  a,b: TArr;  // Переменные для хранения значений массивов.
  m,n: integer;  // Переменные для хранения значений количества элементов массивов.
begin
  Writeln('Введите количество элементов массива А:');
  Readln(m);
  Writeln('Массив А:');
  RandomInArr(a,m,-1,10);
  Writeln('Введите количество элементов массива B:');
  Readln(n);
  Writeln('Массив B:');
  RandomInArr(b,n,-1,15);
  if not otr(a,m) then
    Writeln('Массив А не содержит элементов с отрицательным значением.');
  if not otr(b,n) then
    Writeln('Массив B не содержит элементов с отрицательным значением.');
  Writeln('Натуральные  числа из массива А, сумма цифр которых равна 5:');
  naturelem(a,m,5);
  Writeln('Натуральные  числа из массива B, сумма цифр которых равна 5:');
  naturelem(b,n,5);
  readln;
end.