Delphi - Типизированный файл

[honest]

Создать типизированный файл number1.txt и заполнить его случайными целыми числами, принадлежащими диапазону от -100 до 100. Количество чисел в файле задается с клавиатуры. С файлом number1.txt работать как с файлом file of integer.
Подсчитать факториал каждого положительного элемента файла number1.txt. Полученные элементы вывести в файл number2.txt.

ПОДСКАЖИТЕ ПОЖАЛУЙСТА, ЧТО ЗДЕСЬ НЕ ТАК:

procedure F(k:integer; Var p:longint);
var i:integer;
begin
p:=1;
for i:= 1 to k do p:=p*i;
end;

var n,i,j:integer;x,y:array[1..10]of integer;f1:file of integer;
f2:file of longint;z:array[1..10]of longint;

begin
randomize;
assign(f1,'number1.txt');
assign(f2,'number2.txt');
rewrite(f1);
writeln('N=');
read(n);
for i:= 1 to n do begin
x[i]:=random(20);
write(f1,x[i]);
end;
readln;

reset(f1);
j:=1;
rewrite(f2);
for i:= 1 to n do begin
read(f1,y[i]);

if y[i]>0 then begin f(y[i],z[j]);write(z[j],'   ');write(f2,z[j]); j:=j+1; end;

end;

readln;
close(f1);
close(f2);
end.

[Maxs]

Диапозон от -100 до 100 задается так:

Rondomize;
x[i]:=100 - random(200);

Если выскакивает ошибка (IO), то возможно дело в том, что при смене
с rewrite(f1) на reset(f1) нужно закрыть файл (close(f1))

[Пепел Феникса]

вы в Дельфи а не Паскале
assignfile
closefile

[Serge_Bliznykov]

Подсчитать факториал каждого положительного элемента файла number1.txt.

добавлю, что посчитать факториал от чисел более чем 14 стандартных типов даннных НЕ ХВАТИТ! Факториал от 100 (100! - это число со 157 знаками...)