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

const nmax=100;function summa(a:integer):integer;var b,s:integer;beginb:=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;beginrandomize;repeatwrite(\'Введите размер массива от 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;repeatwrite(\'Введите искомую сумму цифр n>0 n=\');readln(n);until n>0;k:=0;for i:=1 to m doif summa(a[i])=n then begin write(a[i]:4); k:=1; end;if k=0 then write(\'Нет чисел с такой суммой цифр\');end.