Ошибка "Ожидалось имя процедуры или функции" - Pascal ABC

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

program program34;
var X:array[1..13] of integer;
i:integer;
begin
 
writeln('введите значения элементов одномерного массива: ');
for i:=1 to 13 do
begin
writeln('X[',i,'] = ');
readln(X[i]);
end;
 
For i:=1 to 13 do
    Begin
  15     if (X[i]>0) then (X[i]=X[i] / 2)
       else
        (X[i]=[i]+5); 
   
    End;
    For i:=1 to 13 do
    begin
    writeln(X[i]);
    End;
    Writeln(min);
End.

На 15 строке выводит ожидалось имя процедуры или функции. Помогите исправить)

Решение задачи: «Ошибка "Ожидалось имя процедуры или функции"»

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

program program34;
 
var
  X: array[1..13] of real;
  i: integer;
 
begin
  
  writeln('Введите значения элементов одномерного массива: ');
  for i := 1 to 13 do
  begin
    write('X[', i, '] = ');
    readln(X[i]);
  end;
  
  for i := 1 to 13 do
  begin
    if X[i] > 0 then 
      X[i] := X[i] / 2
    else
      X[i] := x[i] + 5; 
  end;
  for i := 1 to 13 do
    write(X[i]:8:2);
end.

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

В данном коде объявлены две переменные: X и i. Переменная X представляет собой одномерный массив из 13 элементов типа real. Переменная i является целочисленной. Сначала программа выводит сообщение с просьбой ввести значения элементов массива. Затем она использует цикл for для прохода по всем элементам массива X. Внутри цикла пользователь вводит значение элемента, которое сохраняется в соответствующем элементе массива X. Если значение элемента положительное, оно делится на 2. Если значение отрицательное, к нему добавляется 5. После завершения цикла, программа выводит значения всех элементов массива X.