Напишите программку, которая наполняет массив случайными целыми числами , вводит с

const nmax=100;
function summa(a:integer):integer;
var b,s:integer;
begin
b:=абс(a);
s:=0;
while bgt;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(Введите размер массива от 2 до ,nmax, m=);
readln(m);
until m in [2..nmax];
writeln(Массив);
for i:=1 to m do
begin
a[i]:=-99+random(1099);
write(a[i]:4);
end;
writeln;
repeat
write(Введите разыскиваемую сумму цифр ngt;0 n=);
readln(n);
until ngt;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(Нет чисел с таковой суммой цифр);
end.