Дано натуральное число сколько раз первая цифра встречается в данном числе — Pascal(Паскаль)

uses crt;
var
 n,m:longint;
 k:byte;
begin
 clrscr;
 repeat
  write('Введите натуральное число n=');
  readln(n);
 until n>0;
 m:=n;
 while n>9 do
  n:=n div 10;
 writeln('Первая цифра=',n);
 k:=0;
 while m>0 do
  begin
   if m mod 10=n then k:=k+1;
   m:=m div 10;
  end;
 write('Первая цифра встречается в числе ',k,' рз.');
 readln
end.