Задача Whlie do нужна помощь

[shadowburn]

Помогите с задачей дорогие программисты

"Дано натуральное число. Сколько раз данная цифра n встречается в данном числе
(n вводить с клавиатуры) использовать while ....do

[A_r_r_a_y]

Сообщение от shadowburn

дорогие программисты

Держите, дорогой товарищ, от всей нашей коммунистической партии, дайте расцелую...нет, лучше себе еще одну звездочку повешу

program cifra_v_chisle;
uses crt;
var k : longint;
    i,kol_vo : integer;
    s,n : string;
begin
  clrscr;
  write('Vvedite chislo: ');
  readln(k);
  str(k,s);
  write('Vvedite cifru: ');
  readln(n);
  while i<>length(s)+1 do
    begin
      if (s[i]=n) then inc(kol_vo);
      inc(i);
    end;
  write('Cifra ',n,' vstrechaetsya v chisle ',k,' ',kol_vo,' raz');
  readln;
end.

[eoln]

Сразу скажу, что если преподы требуют while...do в подобных, то как правило без использования строк. На всякий случай:

var
  k: longint;
  i, n, kol_vo: byte;
begin
  write('k = ');
  readln(k);
  write('n = ');
  readln(n);
  while k > 0 do
  begin
    if  k mod 10 = n then inc(kol_vo);
    k := k div 10
  end;
  writeln('otvet = ', kol_vo);
  readln
end.

[sverhuVniz]

на строки не нужно вообще операться в подобных ситуациях!