Введите n количество чисел чтобы считала только сумму нечетных чисел а

var n,i,sum: integer;
begin
//ввод данных
write(Введите количество чисел n: ); readln(n);
sum:=0; //обнуление суммы
writeln (Вводите числа);
While (ngt;0) do //цикл ПОКА количество ожидаемых для ввода чисел больше 0
begin
readln(i); //вводим в одну переменную
if (i mod 2 = 1) then sum:=sum+i; //и сходу проверяем её на нечётность, ЕСЛИ нечётна =gt; добавляем к сумме
n:=n-1; //убавляем количество ожидаемых для ввода чисел
end;
//вывод
write(Сумма нечётных чисел равна , sum);
end.