Проверить, есть ли в записи числа N в степени k цифра m — Pascal(Паскаль)

{Проверить, есть ли в записи числа N в степени k цифра m}
Program borlpasc;
var i,n,m,s,k,l,a:integer;
begin write('введите n=');
      readln(n);
      write('введите k=');
      readln(k);
      write('введите цифру m=');
      readln(m);
      i:=0;l:=0;s:=1;
      repeat s:=s*n;
             i:=i+1
      until i=k;
      repeat a:=s mod 10;
             if a=m then l:=l+1;
             s:=s div 10
      until s=0;
      if l=0 then writeln('В записи числа нет цифры',' ',m)
             else writeln('В записи числа  цифра ',m,' есть')
end.