Помогите . Составить программку которая наполняет массив а от 1

Program llllll;
var
A: 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.