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

[stopping]

Помогите найти ошибку, уже столько перепробовал, но ничего не получается, в моменте перехода на процедуру Output пишет:" ошибка индекс находился вне границ массива"
///////////////////////

program Lab_7_2;
Var
k,i,j: integer;
A,B: array[1..100] of Integer;
f1, f2: text;

Procedure Input(ii:integer);
var N:integer;
Begin
  Reset (f1);
  k:=0;
  while not Eof (f1) do begin
        read (f1, N);
        k:=k+1;
    end;
  close (f1);
  Reset (f1);   
  For ii:=0 to k-1 do
  read(f1, a[ii]);
  Close (f1);
end;

Procedure DataProcessing(ii,jj: integer  );
var l:integer;
Begin
 For jj:=0 to k-1 do
 Begin
  b[jj]:= 0;
  For ii:=0 to jj do
  Begin
    l:= a[ii];
    b[jj]:= b[jj] + l;
  end;
end;
end;

Procedure Output(ii:integer);
Begin
   writeln (f2, 'Оригинальный массив: ');
   for ii:=0 to k-1 do write ( f2, a[i], ' ');
   writeln(f2);
   writeln (f2, 'Новый массив: ');
   for ii:=0 to k-1 do write (f2, b[j], ' ');
end;

Begin
Assign (f1,'in.txt');
Assign (f2, 'out.txt');
Input(a[i]);
DataProcessing(a[i], b[j]);
Rewrite (f2);
Output(a[i]);
close(f2);

End.

[ura_111]

Что такое "i" и "ii"?

for ii:=0 to k-1 do write ( f2, a[i], ' ');