Дан массив целых чисел.Найти сумму элементов,имеющих нечетное значение.(Паскаль)

var
a:array[1..100000] of integer;
n, i,sum:integer;
begin
Write('Введите количество элементов массива -> ');
readln(n);
Write('Введите массив -> ');
For i:= 1 to n do
  begin
    Read(a[i]);
    if a[i] mod 2 = 1 then sum := sum + a[i];
  end;
Writeln(sum);
end.



Введите количество элементов массива -> 5
Введите массив -> 1 2 3 4 5
9