После введения из клавиатуры произвольного одномерного массива целых чисел (в пределах знакового целого типа) вывести на экран сумму нечетных чисел. Введение каждого числа завершается нажатием , введение прекращается введением числа 0.как ? ) — Pascal(Паскаль)

var a,s:integer;
begin
s:=0;
repeat
readln(a);
if odd(a) then s:=s+a;
until a=0;
write('S=',s);
readln
end.

var a:array[1..200] of integer;
     n,i,s:integer;
begin
n:=0;
repeat
n:=n+1;
readln(a[n]);
until a[n]=0;
s:=0;
fpr i:=1 to n do
if odd(a[i]) then s:=s+a;
write('S=',s);
readln
end.