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

uses crt;

var
  n, m: longint;
  k: byte;

begin
  clrscr;
  write('Введите натуральное число n=');
  readln(n);
  m := n; { запомним }
  while m > 9 do { пока больше 9 }
    m := m div 10; { сокращаем в 10 раз, останется первая цифра }
  k := 0;
  while n > 0 do { пока наше число не 0 }
  begin
    if n mod 10 = m then
      k := k + 1; { если последняя цифра=первой, считаем }
    n := n div 10; { сокращаем }
  end;
  write('Первая цифра встречается ', k, ' рз.');
  readln

end.