супер-пупер интересная задача

[Лина59]

Задача.Записать в файл факториалы первых n целых чисел.паскаль.выручите плиз(сдавать уже в понедельник

[Niro]

fact:=1
for i:=1 to n do
  fact:=fact*i;

Вот основная часть
Хотите полное оформление задачи - полтинник на телефон

[_Alerter_]

var
	n, i : integer;
	res : longint;
	f : text;
	
function fact(x : integer) : longint;
var
	i : integer;
	res : longint;
begin
	res := 1;
	for i := 2 to x do
		res := res * i;
	fact := res;	
end;
	
begin
	Read(n);
	assign(f, 'output.txt');
	ReWrite(f);
	for i := 1 to n do
		WriteLn(f, i, '! = ', fact(i));
         Close(f);
end.

[Лина59]

основная часть мне и так понятна,у меня вся проблема в записи в файл и прочем,а вторая программа не работает :в файл выводится 1 2 3 4 и тд

[(zom!k]

_Alerter_,3-яя строчка лишняя

[_Alerter_]

Сообщение от (zom!k

_Alerter_,3-яя строчка лишняя

Да, точно, забыл убрать