Исправить ошибку

procedure TForm1.Button2Click(Sender: TObject);
var i,g,n,j,q:integer;
t:textfile;
A:array[1..100] of integer;
B:array[1..100] of integer;
begin
AssignFile(t,'C:\File2.txt');
reset(t);
i:=0;
while not eof(t) do
read(t,a[i]);
i:=i+1;
end;
g:=i;
 
for i:=1 to g do begin
if (A[i] mod 2 <> 0) then begin
B[j]:=A[i];
j:=j+1;
end;
end;
 
for q:=1 to (j-1) do
write(t,b[i]);
closefile(t);
 
end;

i:=0;
while not eof(t) do
read(t,a[i]);
i:=i+1;
end;
g:=i;

procedure TForm1.Button2Click(Sender: TObject);
var i,g,n,j,q:integer;
t:textfile;
A:array[1..100] of integer;
B:array[1..100] of integer;
begin
AssignFile(t,'C:\File2.txt');
reset(t);
i:=1;
while not eof(t) do begin
read(t,a[i-1]);
i:=i+1;
end;
 
 
g:=i;
j:=1;
for i:=0 to g do begin
if (A[i] mod 2 <> 0) then begin
B[j]:=A[i];
j:=j+1;
end;
end;
 
for q:=1 to (j-1) do
write(t,b[i]);
closefile(t);
 
end;

for i := 0 to j-1 do begin    //вывод нечетных элементов в Мемо для удобства
memo1.lines.Add(inttostr(b[i]));
write(t,b[i]);
closefile(t);

for i := 0 to j-1 do
 begin    
  memo1.lines.Add(inttostr(b[i]));
  write(t,b[i]);
end;
closefile(t);