Необходимо определить максимальную длину последовательности простых чисел

const
  m = 20; //общее количество чисел
  min = -5; //минимальное генерируемое число
  max = 50; //максимальное генерируемое число
var
  a: array[1..m] of integer; //массив для чисел
  i, d, sq, n, nt: integer; //индекс, делитель, корень из |числа|, максимальная длина, текущая длина
  p: boolean; //флаг простоты числа
begin
  randomize; //инициализация ГПСЧ
  writeln('Массив:');
  nt := 0; //простые числа пока не найдены
  n := nt;
  for i := 1 to m do //перебираем числа
    begin
      a[i] := random(max - min + 1) + min; //генерация числа в диапазоне [min..max]
      write(a[i], ' '); //печать числа
      if a[i] > 1 then //если число > 1, то...
        begin //проверяем число на простоту
          d := 2; //минимальный делитель
          sq := trunc(sqrt(a[i])); //максимальный делитель
          while (a[i] mod d <> 0) and (d <= sq) do inc(d); //перебираем делители
          p := d > sq //если ни на один делитель не разделилось, то простое, иначе не простое
        end
      else p := false; //иначе (если число <= 1) то не простое
      if p then //если число простое, то...
        begin
          inc(nt); //добавляем к текущей длине последовательности 1
          if nt > n then n := nt //если текущая длина больше максимальной, запоминаем максимум
        end
      else nt := 0 //иначе (если число не простое) обнуляем текущую длину последовательности
    end;
  writeln;
  writeln('Максимальная длина последовательности из простых чисел: ', n) //печать результата
end.