Найти сумму всех нечётных, вводимых с клавиатуры чисел — Pascal(Паскаль)

uses crt;
var i,n,s,a:integer;
 
begin
 clrscr;
 write('Введите кол-во элементов: ');
 readln(n);
 s:=0;
 i:=1;
 while i<=n do
 begin
  read(a);
  if a mod 2=1 then s:=s+a;
  inc(i);
 end;
 writeln('Сумма = ',s);
 readln;
end.