Дано простое число. Составить функцию, которая будет находить следующее за ним простое число

var
  i: Integer;
  a:longint;
  function IsSimple(const n: Integer): Boolean;
  var
    i: Integer;
  begin
    IsSimple:=True;
    for i:=2 to Trunc(Sqrt(n)) do
      if (n mod i)=0 then
      begin
        IsSimple:=False;
        Break
      end
  end;
 begin
 Write('Vvedite a:');
 Readln(a);
  i:=1;
  if (IsSimple(a)) then
   begin
   a:=a+1;
  while not(IsSimple(a)) do a:=a+1;
  WriteLn('next_a=',a);
  end
  else WriteLn('Ne_prostoe');
end.

var x,y: integer;
function nexteasy(x: integer; var y: integer): ineteger;
begin
      repeat
          icn(x);
            for i:=1 to x  do
            begin
              if x mod  i = 0 then icn(e);
            end;
           e:=0;
      until (e =2) and (i=x)
      y:=x;
end;
begin
repeat
readln(x);
for i:=1 to x  do
    begin
       if x mod  i = 0 then icn(e);
    end;
until (e=2) and (i=x);
t:=nexteasy(x,y);
writeln('следующее простое число', t);
end.

repeat
readln(x);
e:=0;
for i:=1 to x  do if x mod  i = 0 then icn(e);
until (e=2) and (i=x);

program Project1;
var x,y: integer;
function nexteasy(x: integer; var y: integer): ineteger; //что за ineteger?
                              // ^ Тут просто необходимо параметр y передать по значению
begin
      repeat
          icn(x); //icn, ну-ну...
            for i:=1 to x  do //i Пушкин пусть объявляет
            begin //Вот этот begin
              if x mod  i = 0 then icn(e); //Ну раз i не объявлено, e тоже не надо объявлять
            end; //и вот этот end, без них не обойтись.
           e:=0; //Эпохальный момент. e:=0, поэтому
      until (e =2) and (i=x) //условие никогда не будет истиным. Незачем это.
      y:=x; //Строчкой выше нет точки с запятой. Это пустяк и совершенно не важно.
end;
begin
repeat
readln(x);
//Строчку не написал. Ну да ладно.
for i:=1 to x  do //x на простоту проверяем, и следующее простое ищем,
                  //функцию для этого написали... Неплохо было бы наоборот,
                  //написать функцию для определения простоты числа,
                  //да ею всё и проверять... Да ладно, лишний код не помешает...
    begin //Вот этот begin
       if x mod  i = 0 then icn(e); //icn... И бедное i... Необъявленное...
    end; //и вот этот end, без них не обойтись.
until (e=2) and (i=x);
t:=nexteasy(x,y);
writeln('следующее простое число', t);
end.

repeat
          icn(x);
           e:=0;          
            for i:=1 to x  do
            begin
              if x mod  i = 0 then icn(e);
            end;
      until (e =2) and (i=x)