Факториал, где ошибка? - Pascal ABC

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

Здравствуйте. Делаю следующее задание: Даны натуральное число n, действительные числа а1,..., an. Вычислить: a1 + 1!, a2 + 2!, ..., an + n!. Помогите найти ошибку, что-то у меня в коде не так... Вот код:

program u8;
const n=1;
var
   a:array[1..n] of integer; i,rez:integer;
   function fact(k:integer):integer;
begin
if k<=1 then
fact:=1
else fact:=k*fact(k-1);
end;
begin
writeln('Введите массив чисел');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
rez:=a[i]+fact(i);
writeln(rez);
end;
end.

Решение задачи: «Факториал, где ошибка?»

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

for i:=1 to n do
 begin
  rez:=a[i]+fact(i);
  writeln(rez:0:2);
 end;

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

В данном коде выполняется вычисление факториала для каждого элемента массива a с использованием цикла for.

i := 1 - начальное значение переменной i, которая будет использоваться в цикле.
n := 5 - начальное значение переменной n, которая определяет количество итераций цикла.
a := [1, 2, 3, 4, 5] - начальное значение массива a, который содержит числа от 1 до 5.
fact := 1 - начальное значение функции fact, которая вычисляет факториал числа.
rez := 0 - начальное значение переменной rez, которая будет использоваться для хранения результата вычисления факториала.
writeln(rez:0:2) - выводит значение переменной rez в формате с двумя знаками после запятой.
for i := 1 to n do - начинается цикл, который будет выполняться от i = 1 до i = n.
rez := a[i] + fact(i) - в каждой итерации цикла значение переменной rez обновляется как сумма элемента массива a и значения функции fact для текущего значения i.
writeln(rez:0:2) - после каждой итерации цикла значение переменной rez выводится на экран. Таким образом, в результате выполнения данного кода на экран будет выведено 5 строк, каждая из которых будет содержать факториал соответствующего элемента массива a.