Дан массив натуральных чисел. Получить самый длинный из отрезков последовательности

uses crt;
const nmax=20;
procedure Prost(a:integer;var f:boolean);
var i:integer;
begin
if a<2 then f:=false
else
 begin
  f:=true;
  i:=2;
  while(i*i<=a)and f do
  if a mod i=0 then f:=false
  else i:=i+1;
 end;
end;
var a:array[1..nmax] of integer;
    n,i,j,k,mx:byte;
    f1,f2:boolean;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите элементы массива, в том числе последовательности простых чисел:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
clrscr;
writeln('Массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
{найдем максимальную длину последовательности}
i:=2;mx:=0;
while i<=n do
 begin
  Prost(a[i],f1);
  Prost(a[i-1],f2);
  if f1 and f2 then
   begin
    j:=i;k:=1;
    while (j<=n)and f1 and f2 do
     begin
      Prost(a[j],f1);
      Prost(a[j-1],f2);
      if f1 and f2 then k:=k+1;
      j:=j+1;
     end;
    if k>mx then mx:=k;
    i:=i+k;
   end
  else i:=i+1;
 end;
if mx=0 then write('Нет простых чисел, идущих подряд')
else
 begin
  writeln('Максимальная последовательность простых чисел=',mx);
  writeln('Найденные последовательности:');
  i:=2;
  while i<=n do
   begin
    Prost(a[i],f1);
    Prost(a[i-1],f2);
    if f1 and f2 then
     begin
      j:=i;k:=1;
      while (j<=n)and f1 and f2 do
       begin
        Prost(a[j],f1);
        Prost(a[j-1],f2);
        if f1 and f2 then k:=k+1;
        j:=j+1;
       end;
      if k=mx then
       begin
        for j:=i-1 to i+k-2 do
        write(a[j],' ');
        writeln;
       end;
      i:=i+k;
     end
    else i:=i+1;
   end;
  end;
end.