ПОМОГИТЕ ПОЖАЛУЙСТА!ОЧЕНЬ НУЖНО!!! Дано простое число. Найти следующее за ним про?

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.