14. Заяц-неудачник

На остановке N пассажиров, среди которых были Ваня и Петя, вошли в троллейбус. Первым купил билет Ваня. Петя посмотрел на билет и увидел, что номер билета простое число и решил, что и он должен купить билет с простым номером. Есть ли шанс у Пети купить билет до следующей остановки, если у кондуктора только один рулон билетов, количество цифр в номерах билетов которого определяется купленным билетом. В случае, если рулон заканчивается и в нем нет простого номера, Петя будет ехать «зайцем» и его ждет неудача.
Код решения:
*****

var
len,k,n,i,j,result,f:longint;
s1,s2:string;
begin
   read(k,s1);result:=-1;
   len:=length(s1);
   Val(s1,n,f);
   Str(n,s1);
   for i:=n+1 to n+k-1 do
   begin
        Str(i,s1);
        if len<length(s1) then begin f:=1;break; end;
        f:=0; result:=result+1;
        for j:=2 to trunc(sqrt(i)) do
            if i mod j=0 then begin f:=1;break;end;
        if f=0 then break;
   end;
   if result=-1 then result:=0;
   if f=1 then writeln(-1) else
   begin
    writeln(result);
   end;
end.

*****