Помогите . Составить программу которая заполняет массив а от 1 до 10 случайными целыми числами в диапазоне от 1 до 10 и выводит на экран сумму элементов массива с четными числами

program llllll;varA: array [0..10] of integer;n, i, b : integer;begin    writeln('Введите количество чисел');    readln(n);    b:=0;    for i := 1 to n do        A[i] := random(10);    b:=0;    for i := 1 to n do    begin        if A[i] mod 2 = 0 then            b:=b+A[i];    end;    writeln('Это сумма ' , b);    writeln(A);end.