Массив: Найти и вывести на экран первую последовательность чисел,которые идут рядом, и удовлетворяют условие Mi+1=Mi+1.

uses crt;
var m:array[1..20] of integer;
    n,i,j,k:byte;
begin
repeat
write('Введите размер массива от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите элементы массива целые числа в том числе рядом расположеные на 1 большие');
for i:=1 to n do
readln(m[i]);
clrscr;
writeln('Введеный масив');
for i:=1 to n do
write(m[i],' ');
writeln;
i:=2;
while(i<=n)and(m[i]-m[i-1]<>1) do inc(i);
writeln('i=',i);
if i>n then write('Заданных последовательностей в массиве нет')
else
 begin
  writeln('Первая последовательность');
  write(m[i-1],' ');
  while(i<=n)and(m[i]-m[i-1]=1) do
   begin
    write(m[i],' ');
    i:=i+1;
   end;
 end;
end.

program zadanie20;
const
  n = 10;
var
  a: array[1..n] of integer;
  b: array[1..n] of integer;
  i,k: integer;
  reg: boolean;
begin
Writeln('Программа для поиска элементов, которые находятся в первой встреченной');
Writeln('последовательности чисел, возрастающей на единицу. ( 2,3,4 ....)');
  writeln('Введите значения элементов:');
  for i:=1 to n do
  readln(a[i]);
  k:=1;
  reg:= false;
  for i:=1 to n-1 do
   begin
   if a[i+1] = a[i]+1 then
     begin
     b[k]:= a[i];
     inc(k);
     reg:= true;
     end;
    if reg and (a[i+1] <> a[i]+1) then
      begin
      b[k]:= a[i];
      break;
      end;
    end;
if not reg then
  writeln ('Элементов, удовлетворяющих условиям задачи нет.')
  else
  begin
  writeln ('Элементы, удовлетворяющие условиям задачи:');
  for i:=1 to k do
     write ('b[',i,']= ',b[i],' ');
  end;
 
readln;
end.