Четность и нечетность, в чем проблема Опции

[ElementQQ]

Обьясните плз почему когда я ввожу например n=четное число(65) тогда всё работает нормально а если ввожу нечетное(66) то ответ получается 0.
Собственно задание: Задан одномерный массив Y[n]. Вычислить сумму квадратов нечетных элементов массива.

вот моя программа(предупреждаю сразу моё знание паскаля на уровне ознакомление)

Program A123;
var
i,n: integer;
Y: array[1..100] of integer;
s: real;

begin
writeln('Введите n');
readln(n);
for i:=1 to n do
begin
Y[i]:=random(10);
end;
s:=0;
if (i mod 2=0) then

for i:=1 to n do
begin
s:=s+sqrt(Y[i]);
end;
writeln('Сумма квадратных корней нечетных элементов массива = ',s);
end.