Индекс находился вне границ массива

var a: array[1..100] of integer; i,k,h:byte; f:text;
begin
  assign (f, 'input.txt');
  reset(f);
  i:=0;
  while not eof(f) do begin
    a[i]:=f.ReadInteger;
    i:=i+1
  end;
  writeln;
  close (f);
  assign (f, 'output.txt');
  rewrite (f);
  for k:=100 downto 2 do
    for i:=1 to k-1 do
      if a[i] mod 10>a[i+1] mod 10 then begin
        h:=a[i];
        a[i]:=a[i+1];
        a[i+1]:=h;
      end;
   for i:=1 to 100 do write (f, a[i],' ');
  close (f);
end.

i:=1;

var a: array[1..100] of integer; 
  i,k,h,n:byte; 
  f:text;
begin
  assign (f, 'input.txt');
  reset(f);
  n:=0;
  while not eof(f) do begin
    if n<100 then Inc(n)
    else begin
      WriteLn('Ошибка! В файле input.txt больше 100 чисел');
      Break
    end;
    a[n]:=f.ReadInteger;
  end;
  close (f);
  writeln;
  WriteLn('Из файла прочитали ',n,' чисел');
  assign (f, 'output.txt');
  rewrite (f);
  for k:=n downto 2 do
    for i:=1 to k-1 do
      if a[i] mod 10>a[i+1] mod 10 then begin
        h:=a[i];
        a[i]:=a[i+1];
        a[i+1]:=h;
      end;
  for i:=1 to n do write (f, a[i],' ');
  close (f);
end.