Нельзя изменять значение переменной цикла внутри этого цикла

Нельзя изменять значение переменной цикла внутри этого цикла
for i:=k to n-1 do begin

uses crt;
var
f:file of integer;
i,n,k:integer;
a:array[1..10]of integer;
begin randomize;
assign(f,'D:\p1.dat');
rewrite(f);
for i:=1 to 10 do begin
a[i]:=random(3);
write(f,a[i]);
end;

close(f);
reset(f);
for i:=1 to 10 do begin
read(f,a[i]);
write(a[i],' ');
end;
close(f);
n:=10;
rewrite(f);
for i:=1 to n do begin
if a[i]= 0 then
begin
k:=i;
for i:=k to n-1 do begin
a[i]:=a[i+1];
write(f,a[i]);
end;
end;
write(f,a[i]);
end;
close(f);
writeln;
reset(f);
for i:=1 to 9 do begin
read(f,a[i]);
write(a[i],' ');
end;
close(f);

writeln;

end.