Заменить элементы файла кратные трем

program pr; // программ для создание файла задания 1
var
    f: file of integer;
    i, n:integer;
    a:array [-100..100]of integer;
 
begin
    assign (f, 'c:\file.txt');
    rewrite (f);
    writeln('Введите ограничение по количество целых чисел n'); // количество чисел N
    readln (n);
 
for i:=-n to n do begin
a[i]:=i;
write(a[i]:3);
write(f,a[i]);
 
 end;
    close (f);
 
 
end.

program pr;               //  для замены и записи полученного в новый файл
var
f,f1:file of integer;
i, n:integer;
    a,b:array [-100..100]of integer;
begin
assignfile(f,'c:\file.txt');
reset(f);
assignfile(f1,'c:\g.txt');
rewrite(f1);
writeln('Введите количество читаемых элементов элементов n'); // сколько элементов из файла надо вывести
readln(n);
for i:=-n to n do begin
read(f,a[i]); write(a[i]:4);
if (abs(a[i] mod 3)=0) then             // если делится на цело на 3, в остатке 0
a[i]:=0;
b[i]:=a[i];
if (abs(a[i] mod 3)=1) then   // 1 подразумевается если в остатке получается чисто пере одическая дробь(10/3=3,(3))
a[i]:=1;
b[i]:=a[i];
if (abs(a[i] mod 3)<>0) and (abs(a[i] mod 3)<>1) then // если в остатке не 0 и не период 3 
a[i]:=2;
b[i]:=a[i];
end;
for i:=-n to n do
write(f1,b[i]); // можно сразу вывести замену если дописать write(b[i]:3);
close(f);
close(f1);  readln;
end.
// abs(модуль) используется на случай если число будет отрицательным
 
program pr; // отдельная программа для просмотра замены записанной в новый файл 
var
    g: file of integer;
    i, n:integer;
    a:array [1..10]of integer;
 
begin
    assign (g, 'c:\g.txt');
   reset (g);
 
while not eof (g) do begin
        read (g, i);
        write (i:3);
 
 end;
    close (g);
 
 
end.