如何建立一个文件？(20分)

清高速我

var
f:TextFile;
FileName,str;String;
begin
FileName:='e:/tmp/test';
Str:='This is a test';
if not fileExits(fileName) then
begin
filecreate(FileName);
end;
//写入数据
AssignFile(f,FileNme);
ReWrite(f);
For i:=0 to 10 do
begin
writeln(f,Str);
Str:=Str+' test';
end;
end;

var
s:TStrings;
begin
s:=TStringList.Create;
s.add('1111111');
s.add('1122222211111');
s.savetofile('d:/text.txt');
s.free;

end;

多人接受答案了。