Ошибка во время выполнения программы
от dfsgdfgdf sedgrg - Вторник 26 Сентябрь 2017, 13:14
112393. Самая длинная цепочка
  Вот код:
var i,k,j,lmax,n: longint; inp,out: text; l: array[1..100000000] of integer;
begin
  assign(inp,'input.txt');
  assign(out,'output.txt');
  rewrite(out);
  reset(inp);
  i:=0;
  while not eof(inp) do
      begin
      readln(inp,k);
      inc(i);
      l[i]:=k;
      end;
  lmax:=1;
  n:=1;
  for j:=2 to i do
      begin
      if l[j]=l[j-1] then
        begin
            n:=n+1;
        end
      else
        begin
        n:=1;
        end; 
      if n>lmax then
        lmax:=n;
      end;
  write(out,lmax);
  close(inp);
  close(out);
end.
В чем ошибка? На компьютере работает!