Дана последовательность целых чисел, оканчивающаяся числом -1. Количество чисел в последовательности не меньше двух. Определить есть ли в ней хотя бы одна пара одинаковых «соседних» чисел. В случае положительного ответа определить порядковые номера чисел первой из таких пар — Pascal(Паскаль)

var
  i, t, n, p: integer;
  f: boolean;//Задаем логический тип данных
 
begin
  f := false;
  t := 1;
  n := 1;
  i := 0;
  WriteLn('Введите последовательность чисел. Конец ввода - число -1:');
  repeat
    i := i + 1;
    ReadLn(n);
    if (f = false) and (t mod 2 = 0) and (n mod 2 = 0) then
    begin
      f := true;
      p := i
    end;
    t := n
  until n = -1;//Пока последнее число не будет равно -1
  if f then
    WriteLn('Порядковые номера первых двух соседних четных чисел: ', p - 1, ' и ', p)
  else
    WriteLn('Нет двух соседних четных чисел');
end.