Паскаль

[Fiera9999]

пожалуйста помогите решить одну задачку ))
Записать в файл последовательного доступа N натуральных чисел:а1,а2,...,аn(числа получить с помощью датчика случайных чисел).Сформировать новый файл последовательного доступа элементами которого являются числа а1,а1*а2,а1*а2*а3,...; а1*а2*а3*...;

[Grag]

Var
  f1:file of byte;
  f2:file of longint;
  Prz:longint;
  N,j:word;
  Numb:byte;
Begin
  Readln(N);
  Assign(f1, 'Ваш первый файл');
  Rewrite(f1);
  Assign(f2,'Ваш второй файл');
  Rewrite(f2);
  Randomize;
  Prz:=1;
  for j:=0 to N-1 do
    begin 
      Numb:=random(99)+1; //чтобы не было 0
      write(f1,Numb);
      Prz:=Prz*Numb;
      write(f2,Prz);
    end;
  Close(f1);
  Close(f2)
End.

[Fiera9999]

Ой спасибочки большое)