Дан одномерный массив из 25 чисел. Найти сумму первых нечетных 11 чисел — Pascal(Паскаль)

const n=25;
var a:array[1..n]of integer;
    i,s,k:integer;
begin
randomize;
for i:=1 to n do
begin
   a[i]:=random(21)-10;
   write(a[i]:4);
end;
writeln;
s:=0; k:=0;
for i:=1 to n do
if odd(a[i]) then
begin
   inc(k);
   s:=s+a[i];
end;
if k<11 then writeln('Нет 11 нечетных чисел! Сумма ',k,' нечетных: ',s)
else writeln('Сумма: ',s);
readln;
end.