Write a program that fills an array with random integers, enters an integer N from the keyboard

Write a program that fills an array with random integers, enters an integer N from the keyboard, and copies into a new array all numbers from the original array for which the sum of the values of all digits is N.

const nmax = 100;
function summa (a: integer): integer;
var b, s: integer;
begin
b: = abs (a);
s: = 0;
while b> 0 do
begin
s: = s + b mod 10;
b: = b div 10;
end;
result: = s;
end;
var a: array [1..nmax] of integer;
m, n, i, k: integer;
begin
randomize;
repeat
write (‘Enter the size of the array from 2 to’, nmax, ‘m =’);
readln (m);
until m in [2..nmax];
writeln (‘Array’);
for i: = 1 to m do
begin
a [i]: = – 99 + random (1099);
write (a [i]: 4);
end;
writeln;
repeat
write (‘Enter the required sum of digits n> 0 n =’);
readln (n);
until n> 0;
k: = 0;
for i: = 1 to m do
if summa (a [i]) = n then
begin
write (a [i]: 4);
k: = 1;
end;
if k = 0 then write (‘There are no numbers with such a sum of digits’);
end.