Заменить каждый отрицательный элемент его квадратом, если он стоит на нечетном месте - Pascal

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

Помогите мне, пожалуйста, написать вот эти задачи: 2. Заменить каждый отрицательный элемент его квадратом, если он стоит на нечетном месте. Заранее всем очень благодарна)))

Решение задачи: «Заменить каждый отрицательный элемент его квадратом, если он стоит на нечетном месте»

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

Var A:array[1..100] of integer;
    i,n:byte;
Begin
    Write('Введите размерность: ');readln(n);
    writeln('Исходный');
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    writeln('Преобразованый');
    For i:=1 to n do
    Begin
      if (A[i]<0)and(odd(i)) then A[i]:=sqr(A[i]);
      write(A[i]:4);
    End;
    readln;
End.

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

Объявлены переменные: A (массив), i (индекс), n (размер массива).
Пользователю предлагается ввести размерность массива.
В цикле формируется исходный массив A.
Выводится исходный массив A.
В цикле происходит проверка каждого элемента массива A.
Если элемент A[i] отрицательный и i — нечетное число, то он заменяется на квадрат отрицательного числа.
Выводится преобразованный массив A.
Программа ожидает ввода пользователя для завершения работы.