Заполнить файл числами, которые являются произведениями соседних компонентов файла

...
Var fp,gp:file of integer;
i,n:integer;
 
begin clrscr;
randomize;
assign(fp, 'tstfp.dat');
assign(gp, 'tstgp.dat');
rewrite(fp);
n:=10;
for i:=0 to n-1 do
begin
n:=random(200);
write(fp,n);
write(n, ' ');
end;
writeln;
close(fp);
reset(fp);
rewrite(gp);
while not eof (fp) do
begin 
read(fp,n);
if ((n mod 2)<>1) then 
begin
write (gp,n);
write(n, ' ');
end;
end;
close(fp);
close(gp);
readln;
end.

if ((n mod 2)<>1) then

Var fp,gp:file of integer;
i,n,k:integer;
a,b:array[0..100]of integer;
begin
randomize;
assign(fp, 'tstfp.dat');
assign(gp, 'tstgp.dat');
rewrite(fp);
writeln('vvedite kol-vo chisel');
readln(n);
for i:=0 to n do
begin
a[i]:=random(20)+1;
write(fp,a[i]);
write(a[i], ' ');
end;
writeln;
close(fp);
reset(fp);
rewrite(gp);
while not eof (fp) do
begin
inc(k);
read(fp,a[k]);
end;
a[0]:=1;
a[k+1]:=1;
for i:=1 to k do
begin
b[i]:=a[i-1]*a[i+1];
write (gp,b[i]);
write(b[i], ' ');
end;
close(fp);
close(gp);
readln;
end.