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

vara:array[1..100000] of integer;n, i,sum:integer;beginWrite('Введите количество элементов массива -> ');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 59