Найти сумму нечетных элементов массива- Pascal(Паскаль)

uses crt;
var a:array[1..100]of integer;i,s,n:integer;
begin
writeln('введите кол-во элементов');
readln(n);{читаем сколько элементов в массиве(от одного до ста)}
for i:=1 to n do {делаем n-ое кол-во раз}
begin
readln(a[i]); {читаем i-ый элемент}
if odd(a[i]) then s:=s+a[i];{если не четное прибавляем к сумме этот элемент}
end;
writeln('сумма нечетных элементов равна ',s);{выводим на экран}
end.