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

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.