Найти максимальное количество подряд идущих одинаковых элементов

program Ind4;
 
type 
  A: array[1..20] of integer;
var
  FIn, FOut: Text;
  N: Integer;
  
procedure Mx(var M: Integer; var AR: AMas);
var 
  I, J, K: Integer;
begin
  repeat
    write('Размер массива от 2 до 20 n=');
    read(n);
  until N in [2..20];
  Writeln('Введите элементы массива в том числе последовательности одинаковых');
  for I := 1 to N do
  begin
    Write('A[', I, ']=');
    Read(A[I]);
  end;
  clrscr;
  Writeln('Массив:');
  for I := 1 to N do
    Write(A[I], ' ');
  Writeln;
  Writeln;
  I := 2;
  Mx := 0;
  while I <= N do
    if A[I] = A[I - 1] then
    begin
      J := I;
      K := 1;
      while (A[J] = A[J - 1]) and (J <= N) do
      begin
        I := J + 1;
        K := K + 1;
      end;
      if K > Mx then  Mx := K;
      I := I + K;
    end
    else I := I + 1;
  if Mx 0 then 
    Write('Нет одинаковых рядом!')
  else 
    Write('Максимальная последовательность одинаковых чисел подряд=', Mx);
end;
 
begin
  Assign(FIn, 'input.txt');
  Reset(FIn);
  Readln(FIn, N);
  FileInMas(N, FIn, Mas); 
  Close(FIn);
  DeleteMod0(N, Mas);
  Assign(FOut, 'output.txt');
  Rewrite(FOut);
  If N = 0 then 
    Write(FOut, 0)
  else
    MasInFile(N, Mas, FOut);
  Close(FOut);
  Readln;
end.

begin
  var f := ReadAllLines('input.txt');
  var a := f[1].ToIntegers.ToList;
  WriteAllText('output.txt', a.AdjacentGroup.Select(v -> v.Count).Max.toString);
end.

## Reset(input, 'input.txt');
WriteAllText('output.txt',
  ReadSeqInteger(ReadlnInteger)
  .AdjacentGroup
  .Max(g->g.Length)
  .ToString
);

##   ReadArrInteger(ReadInteger).AdjacentGroup.Max(v -> v.Count).PrintLn;