Создать массив из 25 целых случайных чисел в интервале [-50,50]. Вывести на количество четных и сумму нечетных элементов массива

vari, chet, summa: integer;mass:array[0..24] of integer;Beginfor i:=0 to 24 doBeginmass[i]:= random(-50,50);if (mass[i] mod 2 = 0) then Beginchet+=1;writeln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и чётен.');Endelse Beginwriteln('Элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и нечётен.');summa+=mass[i];End;End;Writeln('Количество чётных членов массива: ', chet);Write('Сумма нечётных членов массива: ', summa);End.