各位，帮帮忙。


txt文本中有'姓名'，两个字，如下：
－－－－－－－－－－－－－－
txt文本内容：
年龄：
姓名：
。。
。。
－－－－－－－－－－－－
实现从程序中，输出一变量，到'姓名' 后面，
如：变量为：刘运涛，则txt文本内容为：
－－－－－－－－－－－－－－
txt文本内容：
年龄：
姓名：刘运涛
。。
。。
－－－－－－－－－－－－
   我的代码：当向txt写数据时出错。
Var
F : Textfile;
str,aa:String;
Begin
   AssignFile(F,'test.txt');
    reset(F);
 //  append(F);
    while not eof(f) do
      begin
      Readln(F,str);      ShowMessage(str);
      aa:=copy(trim(str),1,9);
      if aa='被审单位=' then         begin
          append(F) ;
          Writeln(f,aa+'lyt');//出错
         end;
      end;
       Closefile(F);
      end;
我的txt文件内容：
项目=aaa
被审单位=asdf
先谢谢各位。