Паскаль. Дано натуральное число. Верно ли , что цифра А встречается в нем более К раз.

 Program P1; 

uses crt; 

label l; 

var a: char; 

    c: string; 

    i, k, n: byte; 

begin 

clrscr; 

n:=0; 

writeln ('Введите с клавиатуры натуральное (целое, >0) число, после чего нажмите клавишу Enter. Внимание: количество данного числа не должно превышать 255.'); 

write ('Введите натуральное число: '); 

readln (c); 

for i:=1 to length (c) do if not (c[i] in ['0'..'9']) then begin 

    writeln ('Ошибка: некорректный ввод.'); 

    goto l; 

    end; 

if c[1]='0' then writeln ('Ошибка: введенное число не является натуральным.') else begin 

   writeln ('Теперь введите с клавиатуры любую цифру, после чего так же нажмите клавишу Enter.'); 

   write ('Введите цифру: '); 

   readln (a); 

   if not (a in ['0'..'9']) then begin 

      writeln ('Ошибка: некорректный ввод.'); 

      goto l; 

      end else begin 

          writeln ('Теперь введите с клавиатуры количество повторений данной цифры в числе (только целое число, не менее 0.)'); 

          write ('Введите количество повторений данной цифры: '); 

          readln (k); 

          for i:=1 to length (c) do if c[i]=a then n:=n+1; 

          if n=k then writeln ('Утверждение, что цифра ', a, ' в числе ', c, ' встречается ', k, ' раз(а), верно.') else writeln ('Утверждение, что цифра ', a, ' в числе ', c, ' встречается ', k, ' раз(а), ложно.'); 

          end; 

      end; 

l:; 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.