с end-ами напутал, по твоему вариант CloseFile(F1) - у тебя отыгрывается большое кол-во раз, на нем скроее всего и вылетает ошибка..,
скорее всего должно было быть:
Код:
...
for j:=1 to 3 do
begin
a[j]:=a[j]+n;
n:=n+3;
end;
...
Оформляй код с отступами, и будет намного легче его читать.