Дано простое число. найти следующее за ним простое число.программа паскаль

Var
a,i,b:integer;

begin
readln(a);

 while (b>0)
  begin
   for i:=2 to a
    begin
     if ((a mod i)=0) then b:=b+1;
    end;
   a:=a+1;
  end;
writeln(a);
end.