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

vara,i,b:integer;beginreadln(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.