Pascal.Цикл While

[SeraOK]

Помогите найти проблему в программе.
Итак задача:
Определение количества цифр Т в записи целого числа P (Т, Р задает пользователь)
Вот моя программа:
uses crt;
var
t, p, i:integer;
temp:integer;
begin
clrscr;
writeln('vvedit chuslo: ');
readln(p);
writeln('vvedit T:');
readln(t);
while p <> 0 do
begin
temp:=trunc(((p/10)-trunc(p/10))*10);
if temp = t then
inc(i);
p:= trunc(p/10);
end;
writeln('Kil`kist` chusla ', t, ': ', i);
readkey;
end.
Вроде всё правильно,но чаще всего считает неправильно(
Помогите

[Serge_Bliznykov]

для выделения чисел лучше не использовать вещественную арифметику, как это делаете Вы!
Там, возможно, какие-то подлянки с округлением возникают, а лучше ограничится целочисленными вычислениями.
и не забывайте обнулять счётчик.
примерно так:

 
  i:=0;
  while P>0 do begin
      if  t = (P mod 10) then Inc(i);
      P :=  P div 10;
  end;

[SeraOK]

Спасибо,помогли)