Сколько раз заданная цифра встречается в числе N

program tryljalja;
uses crt;
var
c,cc:string;
i,n,m:integer;
begin
n:=0;
writeln('vvedite chislo');
readln(cc);
writeln('vvedite iskomyjy cufry');
readln(c);
m:=length(cc);
for i:=1 to m do begin
if cc[i]=c then
n:=n+1;
end;
writeln('vstrechaetsa ',n,' raz');
readln;
end.

Programm grt;
uses crt;
var N,m,k,a:longint;
begin
clrscr;
writeln('введи число');
readln(N);
m:=N;
k:=0;
WHILE m<>0 do
begin

program prog;
uses crt;
var n, c, count : integer;
begin
clrscr;
write('Введите число: '); readln(n);
write('Введите цифру: '); readln(c);
count := 0;
while (n div 10 <> 0) begin
  if (n mod 10 = c) then
    inc(count);
  n := n div 10;
end;
write('Цифра ', c ,' встречается ', count , ' раз.');
readln;
end.

var
 N, M: longint;
Begin
 Write('Число: ');
 Readln(N);
 Write('Цифра: ');
 Readln(M);
 M:=M*100;
 While N<>0 do
  Begin
   If (N mod 10)=(M div 100) then Inc(M);
   N:=N div 10;
  End;
 M:=M mod 100;
 Writeln('Result: ',M);
End.

Count:=Count+1;

Program grd;
uses crt;
var N,m,k,a:longint;
begin
clrskr;
writeln('введи число');
readln(N)l
writeln('введи цифру');
readln(a);
m:=N;
k:=0;
WHILE m><0 do
begin
a:=m div 10;
IF m mod 10=a THEN k:=a+1;
m:=m mod 10;
end;
writeln('кол-во повторений заданной цифры ', a, 'равно',k);
readln;
end.

Program grd;
uses crt;
var N:Longint;{число}
    k,a,c:byte;{счетчик, зажанная и найденная цифры}
begin
clrscr; {не clskr}
writeln('введи число');
readln(N);
writeln('введи цифру');
readln(a);
k:=0; {вот здесь для чего еще m была?}
WHILE n<>0 do{ не ><}
 begin
  c:=n mod 10;{отделяем цифру с конца}
  IF c=a THEN k:=k+1;{если она как заданная, считаем}
  n:=n div 10;{берем чсло без этой цифры и повторяем, пока число не кончится}
end;
writeln('кол-во повторений заданной цифры ', a, 'равно=',k);
readln;
end.

var
  x, c, n, r, m: integer;
 
begin
  write('Введите число: ');
  read(x);
  m := x;
  write('Введите цифру: ');
  read(n);
  while(x <> 0) do 
  begin
    c := x mod 10;
    if (c = n) then inc(r);
    x := x div 10;
  end;
  write('Цифра ', n, ' встречается в числе ', m, ', ', r, ' раз');
end.

x := abs(x);
while(x <> 0) do ...

repeat
  c:=x mod 10;
  if c=n then r:=r+1;
  x:=x div 10;
until x=0;

var n: Longint; d, k: Integer;
begin
  Write('Число и цифра: '); ReadLn(n,d); n:=Abs(n);
  repeat
    if n mod 10=d then Inc(k); { Inc(k,Ord(n mod 10=d)); }
    n:=n div 10;
  until n=0;
  WriteLn('Цифра ',d,' встречается ',k,' раз(а)');
end.