Записать в файл последовательного доступа N натуральных чисел: a1, a2, …, an

[JiLiYa]

Задача:Записать в файл последовательного доступа N натуральных чисел: a1, a2, …, an (числа, получить с помощью датчика случайных чисел). Сформировать но-вый файл последовательного доступа, элементами которого являются числа: a1, a1*a2, a1*a2*a3, …, a1*a2*a3*…*an.

Подскажите кто может, в чем ошибка в моем коде.Заранее спасибо


Вот примерный код.

Program FAILS;
type file_type=file of integer;
var f: file_type;r,k,n,mult: integer;


begin
assign (f, 'data.dat'); rewrite(f);
write ('Vvedite kolichestvo chisel v faile: ');readln(k);
for n:=1 to k do
begin
r:=random(100); write (f,r); write('  ',r);
end;
mult:=1;
while not eof(f) do begin
read (f,r);
mult:= mult*r;
close(f);
assign(f,'data2.dat');
rewrite(f);
for i:=1 to n do
writeln(f,milt);
close(f);
end.

[Tkirill]

uses crt;
var
fil:file of integer;
f:file of longint;
a,i,j,n,k:integer;
pr:longint;
begin
clrscr;
randomize;
assign(fil,'c:\file1');
rewrite(fil);
write(' Kolichestvo chisel -> ');
readln(n);
for i:=1 to n do
begin
a:=random(10)+1;
write(fil,a);
end;
close(fil);
assign(fil,'c:\file1');
reset(fil);
assign(f,'c:\file2');
rewrite(f);
for i:=1 to n do
begin
pr:=1;
for j:=1 to i do
begin
read(fil,a);
pr:=pr*a;
end;
write(f,pr);
seek(fil,0);
end;
close(fil);
close(f);
readln;
end.