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

1)
k:=0;
t:=0;
repeat
 if (n mod 10)>t  then
  begin
   k:=1;
   t:= n mod 10;
  end;
 if (n mod 10)=t then inc(k);
n:=n div 10; 
until(n<=0);

uses crt;
var n:longint;
max,k:integer;
 
begin
 clrscr;
 write('-> ');
 readln(N);
 max:=-1;
 k:=0;
 while N<>0 do
 begin
  if n mod 10 > max then
  begin
   max := n mod 10;
   k := 1;
  end else if n mod 10 = max then inc(k);
  n := n div 10;
 end;
 writeln(max,' встречается ',k,' раз');
 readln;
end.

program tmp;
uses crt;
var
   n:longint;
   max,k,i,x,code:integer;
   st:string;
begin
 clrscr;
 readln(n);
 str(n,st);
 val(st[1],max,code);
 for i:=1 to length(st) do begin {Определяем max}
                           val(st[i],x,code);
                           if x>max then max:=x;
                           end;
 k:=0;
 for i:=1 to length(st) do begin {Считаем сколько раз встречается max в числе}
                           val(st[i],x,code);
                           if x=max then inc(k);
                           end;
 write('max=',max,', k=',k);
 readkey;
 end.

max:=-1;
m:=n;
while n>0 do
  begin
l:=n mod 10;
if l>max then max:=l;
n:=n div 10;
end;
col:=0;
while m>0 do 
  begin
l:=m mod 10;
if l=max then col:=col+1;
m:=m div 10;
end;
writeln('Max=',max,'  Kol=',kol);

var
n:longint;
max,k,t:integer;
begin
writeln('vvedite chislo');
readln(n);
k:=0;
repeat
  if (n mod 10)>max then
  begin
  max:=n mod 10;
  k:=1;
  end
  else if n mod 10=max then inc(k);
  n:=n div 10;
until(n=0);
writeln('naibolshaya cifra ',max,' vstrechaetsya ',k,' raz');
readln;
end.

var
n,k:integer;
begin
n:=100;
repeat
inc(n);
if (n mod 9=0)and(n mod 10=7)then 
begin
write(n:5);
inc(k);
end;
until k=10;
readln;
end.