Паскаль. Задачи целочисленной арифметики. Исправить ошибку(

[lola1990]

Условие задачи
Подсчитать количество нечетных натуральных чисел, принадлежащих интервалу ( a , b ), у которых количество четных цифр равно заданному числу.
Ну кроме этого также вывести на экран эти числа.

Вот он мой код

procedure nechet(var a,b,kc,n:integer);
var kz,x,y,t:integer;
begin
 for t:=a+1 to b-1 do begin
  if (t>0)and(t>a)and(t<b)and(t mod 2 =1) then
    begin
    x:=t;
    while x>0 do
      begin
        kz:=0;
        y:=x mod 10;
        if (y mod 2) = 0 then
        kz:=kz+1;
        x:=x div 10;
      end;
    if kz=n then
  begin
    kc:=kc+1;
    writeln(t);
    end;
    end;
 end;
end;
var a,b,n,t,kc,x,y:integer;
begin
  writeln('введите a,b');
  readln(a,b);
  writeln('введите n');
  readln(n);
  kc:=0;
  nechet(a,b,kc,n);
  if kc=0 then
  writeln('таких чисел нет')
  else
  writeln('кол-во таких чисел=',kc);
end.

Итак, программа работает при n=1 идеально. Выводит количество таких чисел и сами числа. Но если мы введем отрезок от 0 до 1000 например и n=2, прога выведет, что таких чисел нет
Я всю голову сломала, не понимаю, почему она не пашет. Помогите пожалуйста!

[lola1990]

помогите, прошу(

[Костя КС]

//в объявлении процедур var пишется перед переменными, которые должны изменить значение после выполнения процедуры. 
procedure nechet(a,b:integer;var kc:integer;n:integer);
var kz,x,y,t:integer;
begin
 for t:=a+1 to b-1 do begin
  if (t>0)and(t>a)and(t<b)and(t mod 2 =1) then
    begin
    x:=t;
//обнуление kz нужно вынести из цикла while
     kz:=0;
    while x>0 do
      begin

        y:=x mod 10;
        if (y mod 2) = 0 then kz:=kz+1;
        x:=x div 10;
      end;
    if kz=n then
  begin
    kc:=kc+1;
    writeln(t);
    end;
    end;
 end;
end;
//в самой программе не нужно объявлять переменные, используемые внутри функции.
var a,b,n,kc:integer;
begin
  writeln('введите a,b');
  readln(a,b);
  writeln('введите n');
  readln(n);
  kc:=0;
  nechet(a,b,kc,n);
  if kc=0 then
  writeln('таких чисел нет')
  else
  writeln('кол-во таких чисел=',kc);
end.

[lola1990]

большое просто огромное вам спасибо)

[Костя КС]

Всегда рады. Обращайтесь.