Написать программу которая задаёт массив случайных чисел из 20элементов от 0 до 25 и просчитывает сумму четных значений элементов

Здравствуйте, можете пожалуйста помочь с https://znanija.com/task/29114100 ?

var a: array[1..20] of Integer;i,n,sum: Integer;beginfor i:=1 to 20 dobeginn:=random(25);a[i]:=n;writeln(i,' число: ',n);end;for i:=1 to 20 dobeginif a[i] mod 2=0 then Inc(sum,a[i]);end;writeln(sum);end.

program massiv7;

const N=10;

type x=array [1..20] of integer;

var a:x;

i:integer;

k:integer;

begin

randomize;

for i:=1 to 20 do

begin

a[i]:= +10+random (91);

write (A[i]:5)

end;

writeln;

k:=0;

for i:=1 to 20 do

if a[i] mod 2=0 then

begin

k:=k+1

end;

writeln ('Количество четных элементов =' ,k:5);

readln

end.