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

var n,i,s:longint;
a:array [1..1000] of longint;
begin
       writeln('vvedite n');
       readln(n);
       s:=0;
       for i:=1 to n do
       begin
              read(a[i]);
              if odd(a[i]) then s:=s+a[i];
       end;
       writeln('Summa elementov massiva ravno ',s);
end.