Добавить к каждому числу единицу и вывести конечное - Free Pascal

Формулировка задачи:

Добрый день, сразу объясню в чём задача имеются числа, к примеру: 1 2 3 4 5 6 7 8 9 10 Нужно написать программу которая добавляла бы к каждому числу единицу и выводила конечное. Конечное в этом примере: 2 3 4 5 6 7 8 9 10 11 пробовал макросом, но не получилось.

Решение задачи: «Добавить к каждому числу единицу и вывести конечное»

Листинг программы

const n = 10
var i: byte;
     a: array[1..n] of integer;
Begin
 for i:=1 to n do
 begin
  write('a[',i,']: =  ');
  readln(a[i]);
  for i:=1 to n do 
   begin
    a[i]:=a[i]+1;
    write(a[i],'  ');
   end;
 end;
End.

Объяснение кода листинга программы

Объявляется константа n равная 10.
Объявляется переменная i типа byte.
Объявляется массив a размером 10 элементов типа integer.
Запускается цикл for для перебора индексов от 1 до 10.
Для каждого индекса выводится сообщение a[i] = с соответствующим индексом.
Запускается цикл for для перебора индексов от 1 до 10.
Каждый элемент массива a увеличивается на 1.
Для каждого элемента массива a выводится значение элемента.
Код завершается.