Заменить все элементы исходного массива, которые являются числами Фибоначчи, на ближайшее большее простое число

var
a,b:array[1..100]of integer;
i,j,n,m,max,pro,f,k:integer;
begin
writeln('Введите количество элементов');
 readln(n);
writeln('Введите элементы массива');
 for i:=1 to n do
   read(a[i]);
{Находим max элемент массива, чтобы знать до какого числа надо искать числа Фибоначчи}
max:=a[1];
for i:=1 to n do
    if a[i]>max then max:=a[i];
{Заносим числа Фибоначчи в массив В}  
  b[1]:=1;
  b[2]:=1;
  m:=2;
  repeat
  m:=m+1;
  b[m]:=b[m-1]+b[m-2];
  until b[m]>=max;
{Ищем в массиве числа Фибоначчи и преобразовываем их в ближайшие простые}
  for i:= 1 to n do
    for j:=m downto 1 do
      if a[i]=b[j] then
           if a[i]=1 then
               a[i]:=2
                else
                 begin
                 pro:=a[i];
                    repeat
                      pro:=pro+1;
                      f:=0;
                        for k:=2 to pro-1 do
                         if pro mod k=0 then f:=1;
                     until f=0;
                 a[i]:=pro;
                 end;
    for i:=1 to n do
       write(a[i],' ');
      writeln;
  end.