Удаление элементов массива и "особые случаи"

{Дан одномерный числовой массив. Удалить в массиве первую группу из двух 
подряд идущих одинаковых чисел. Если удаление элементов невозможно, 
выдать об этом сообщение. Удаление элементов из массива оформить в 
виде подпрограммы.}
program exercise1;
var
  i,arrLength, someVar, coincidence : integer;
  a : array of integer; 
  
begin
writeln('Длинна массива:...');
readln(arrLength);
writeln('кол-во совпадающих символов:...');
readln(someVar);
 
setLength(a, arrLength);
writeln('Укажите значение элементов массива:...');
for i:=0 to a.Length-1 do
  read(a[i]);
writeln(a);
{тут что-то про завершение цикла после нахождения первой пары }
for i:=0 to a.Length-2 do
  if a[i] = a[i+1] then
    begin
      coincidence := a.IndexOf(i);
      break;
    end;
{тут этот кусок кода заканчивается}
    for i:=coincidence+1 to a.Length-1-someVar do
    a[i] := a[i+someVar];
    setLength(a, a.Length-someVar);
    writeln(a);
end.

begin
  var a := ReadArrInteger(
    'Введите элементы массива, через пробел:',
    ReadInteger('Введите длину массива:')
  ).ToList;
  
  var ind := a.AdjacentFind;
  
  if ind=-1 then
    Writeln($'Нет 2 повторяющихся элементов') else
  begin
    a.RemoveRange(ind, 2);
    a.Println;
  end;
  
end.

begin
  var a := ReadArrInteger(
    'Введите элементы массива, через пробел:',
    ReadInteger('Введите длину массива:')
  ).ToList;
  var n := ReadInteger('Кол-во повторяющихся:');
  
  var last := a[0];
  var c := 1;
  var ind := -1;
  for var i := 1 to a.Count-1 do
    if a[i]=last then
    begin
      c += 1;
      if c<>n then continue;
      ind := i-с+1;
      break;
    end else
    begin
      last := a[i];
      c := 1;
    end;
  
  if ind=-1 then
    Writeln($'Нет {n} повторяющихся элементов') else
  begin
    a.RemoveRange(ind, n);
    a.Println;
  end;
  
end.

program exercise1;

writeln('Длинна массива:...');
readln(arrLength);

  var arrLength := ReadLnInteger('Длинна массива:');

writeln('кол-во совпадающих символов:...');
readln(someVar);

  var a := ReadArrInteger('Введите значения элементов массива:', arrLength);

begin
  var arrLength := ReadLnInteger('Длинна массива:');
  var a := ReadArrInteger('Введите значения элементов массива:', arrLength);
  'Введён массив:'.Print; a.Println;
  var пары := a.Pairwise.Numerate.Where(пара->пара[1][0]-пара[1][1]=0);
  if пары.Count = 0 then
    'Пар нет!'.Println
  else
    begin
      var позицияПервойПары := пары.First[0];
      a := a.Where((n,i)->Not i.inRange(позицияПервойПары, позицияПервойПары+1)).ToArray;
      ' Новый массив:'.Print; a.Println;
    end;
end.

var arrLength := ReadLnInteger('Длинна массива:');
var a := ReadArrInteger('Введите значения элементов массива:', arrLength);

var a := ReadArrInteger('Введите значения элементов массива:', ReadLnInteger('Длинна массива:'));

 var позицияПервойПары := пары.First[0];

var positionOfTheFirstPair := ...

| Это вступление
цел длина, ширина
длина := 10
ширина := 15
| Это - основной алгоритм.
| У него может не быть имени
алг
нач
  вывод "Площадь равна ", площадь
кон
| Это - вспомогательный алгоритм.
| При выполнении он вызывается из основного.
| У вспомогательного алгоритма обязательно
| должно быть имя и могут быть параметры.
алг цел площадь
нач
  знач := длина*ширина
кон