Помогите исправить ошибку в коде паскаль

program Un_9;

var
a: array[1..10] of integer;
i, n: integer;

begin
// Здесь вы можете добавить код для инициализации массива a и переменной n, например:
// for i := 1 to 10 do
// begin
// a[i] := i; // Пример инициализации
// end;
n := 10; // Пример значения для n

for i := 1 to 10 do
begin
if (i > 1) and (a[i] mod 2 = 0) then
a[i] := a[i] + a[1];
write(a[i], ' ');
end;

for i := 1 to 10 do
begin
if (i < 10) and (a[i] mod 2 = 0) then
a[i] := a[i] + a[n];
write(a[i], ' ');
end;
end.