Есть ли в очереди хотя бы один элемент, который равен следующему за ним

function nextInLine() : boolean; // будем возвращать true / false
var
i : integer; // создадим переменную для цикла-счётчика for
begin
for i := 1 to 49 do begin // будем перебирать весь массив кроме последнего элемента, далее объясню почему...
if (a[i] = A[i + 1]) then begin // если текущий элемент равен следующему элементу (вот для этого 50 - 1, иначе выйдем за рамки массива), тогда....
nextInLine := true; // возвращаем ответ true (по умолчанию ответ был бы равен false, поэтому мы ни где в программе это не указываем)
break; // досрочно завершаем цикл, ибо смысл искать дальше?
end;
end;
end;

Program PABCP;
 
var
A : array [1..50] of integer;
 
// ТУТ НАША ФУНКЦИЯ
 
begin
 
// ТУТ ЗАПОЛНЯЕМ МАССИВ
 
if (nextInLine() = true) then begin
writeln('Есть такой элемент');
else begin
writeln('Таких элементов нет');
end;
 
end.

Program PABCP;
 
var
A : array [1..10] of integer;
F : text;
i : integer;
 
function nextInLine() : boolean; // будем возвращать true / false
var
i : integer; // создадим переменную для цикла-счётчика for
begin
for i := 1 to 9 do begin // будем перебирать весь массив кроме последнего элемента, далее объясню почему...
if (a[i] = A[i + 1]) then begin // если текущий элемент равен следующему элементу (вот для этого 50 - 1, иначе выйдем за рамки массива), тогда....
nextInLine := true; // возвращаем ответ true (по умолчанию ответ был бы равен false, поэтому мы ни где в программе это не указываем)
break; // досрочно завершаем цикл, ибо смысл искать дальше?
end;
end;
end;
 
begin
 
assign(F, 'input.txt');
reset(F);
for i := 1 to 10 do begin
readln(F, A[i]);
end;
close(F);
 
if (nextInLine() = true) then begin
writeln('Есть такой элемент');
else begin
writeln('Таких элементов нет');
end;
 
end.

program PABCP;
 
var
  A: array [1..5] of integer;
  F: text;
  i: integer;
 
function nextInLine() : boolean;// будем возвращать true / false
var
  i: integer;// создадим переменную для цикла-счётчика for
begin
  for i := 1 to 4 do 
  begin// будем перебирать весь массив кроме последнего элемента, далее объясню почему...
    if (a[i] = A[i + 1]) then begin// если текущий элемент равен следующему элементу (вот для этого 50 - 1, иначе выйдем за рамки массива), тогда....
      nextInLine := true; // возвращаем ответ true (по умолчанию ответ был бы равен false, поэтому мы ни где в программе это не указываем)
      break; // досрочно завершаем цикл, ибо смысл искать дальше?
    end;
  end;
end;
 
begin
  
  assign(F, 'input.txt');
  reset(F);
  for i := 1 to 5 do 
  begin
    readln(F, A[i]);
  end;
  close(F);
  
  if (nextInLine() = true) then begin
  writeln('Есть такой элемент');
  end;
  if (nextInLine() = false) then begin
  writeln('Таких элементов нет');
  end;
 
end.