Вывести первые N натуральных чисел, сумма цифр которых нечётная. Паскаль. Через вложенные циклы со счетчиком.

Var n,i,a,k,s:integer;
begin
write(n = );
readln(n);
k:=0;
i:=0;
while k begin
 i:=i+1;
 s:=0;
 a:=i;
 while a>0 do
  begin
  s:=s+a mod 10;
  a:=a div 10;
  end;
 if s mod 2 0
  then begin write(i, ); k:=k+1; end;
 end;
end.

Пример:
n = 20
1 3 5 7 9 10 12 14 16 18 21 23 25 27 29 30 32 34 36 38