Записать результат формулы в файл

[Mikkel27]

Здравствуйте. Помогите решить такую задачу:
Необходимо вывести результат следующей формулы в текстовый файл. В итоге должно получится 7 чисел.

Проблема: выводится только одно значение.

uses crt;
var i:integer;
var z:real;
var x:real;
var t1:text;

begin
assign(t1, 'C:\TP\t1.txt');
rewrite(t1);

x:=10.5;

for i:=0 to 7 do begin
z:=x/sqrt(1+sqr(x)/9);
x:=x+1;
assign(t1, 'C:\TP\t1.txt');
rewrite(t1);
writeln(t1, z:3:2,' ');
end;
close(t1);

readln;

end.

[BDA]

Проверьте:

uses crt;

var i:integer;
z:real;
x:real;
t1:text;

begin
assign(t1, 'C:\TP\t1.txt');
rewrite(t1);
x:=10.5;
for i:=0 to 7 do
begin
	z:=x/sqrt(1+sqr(x)/9);
	x:=x+1;
	writeln(t1, z:3:2,' ');
end;
close(t1);
readln;
end.

[Mikkel27]

Работает! Спасибо большое