Получить в новом файле компоненты исходного файла, делящиеся на 3 и не делящиеся на 7.

Program FileChisel;
uses crt;
var
f,g:file of integer;
p,i:longint;
begin
clrscr;
assign(f,'CHISLA.TXT');
rewrite(f);
for i:=1 to 50 do begin
write(f,i);
end;
close(f);
writeln('Âñå ÷èñëà:');
for i:=1 to 50 do
write(i:4);
readln;
assign(f,'chisla.txt');
assign(g,'NewFile.txt');
reset(f);
rewrite(g);
writeln('×èñëà êîòîðûå äåëÿòüñÿ íà 3 è íå äåëÿòüñÿ íà 7:');
for i:=1 to 50 do
begin
read(f,p);
if (p mod 3=0) and (p mod 7>0) then
writeln(p);
end;
close(g);
close(f);
readln;
end.

Program Naselenie;
uses crt;
type
perepis=record
surname:string[20];
year:integer;
end;
var
f:array [1..5] of perepis;
p:perepis;
i,s,n:byte;
begin
clrscr;
for i:=1 to 5 do
begin
writeln(i);
writeln('Familia:'); readln(f[i].surname);
writeln('God:');readln(f[i].year);
end;
clrscr;
for i:=1 to 5 do
writeln(i,f[i].surname:10,f[i].year:10);
writeln;writeln;
writeln('Jyteli kotorye rodilis do 1973 goda:');
s:=0;
for i:=1 to 5 do
begin
if f[i].year<1973 then
s:=s+1;
end;
writeln(s,' человек');
readln;
end.

Program FileChisel;
uses crt;
const n=15;
var
f,g:file of integer;
p,i:integer;
a: array [1..1000] of integer;
begin
clrscr;
assign(f,'massiv.txt');
  reset(f);
  writeln('Все числа:');
  for i:=1 to n do
        begin
        read(f,a[i]);
        write (a[i]:3);
        end;
close(f);
writeln;
assign(g,'NewFile.txt');
rewrite(g);
writeln('Числа, которые делятся на 3 и не делятся на 7:');
for i:=1 to n do
         begin
         if (a[i] mod 3=0) and (a[i] mod 7>0) then
            begin
            write (g,a[i]);
            writeln (a[i]);
            end;
         end;
close(g);
readkey;
end.