Одномерный массив. Заменить элементы с нечетными номерами на квадраты их номеров

[кумитэ]

Всем здравствуйте!
Дан массив чисел из N элементов. Необходимо заменить элементы с нечетными номерами на квадраты их номеров.
Например:
Вх файл
10
-5 -4 -3 -2 -1 0 1 2 3 4
Вых файл
1 -4 9 -2 25 0 49 2 81 4
В данной задаче у меня заменились элементы массива с нечетными номерами на квадраты их номеров, а мне нужно чтобы выходной файл вывел все элементы массива как на примере смотрите выше. Спасибо.
var a: array[1..1000] of longint;
i, n,k: integer;
begin
assign (input,'input.txt');
assign (output,'output.txt');
reset (input);
rewrite(output);
readln (n);
for i:=1 to n do
begin
read(a[i]);
end;

for i:=1 to n do

if i mod 2<>0 then
begin
write (sqr(i),' ');
end;
close (input);
close (output)
end.

[Leshii]

Номер элемента = его индекс
тоесть

if i mod 2 <>0 then ...

[кумитэ]

Спасибо Leshii!