一个从WEB缘代码中提取数据的问题，谢谢。

Procedure Openfile(filename:string);
> Var
>   F : Textfile;
> Begin
>   AssignFile(F,filename);    //'d:\新华社\新建文件夹（1）\data.txt' {将文件名与
变量 F 关联}
>   Append(F);    {以编辑方式打开文件 F }
> 
> 
>   {d:  读取WEB文件，并建立文件的标题，时间，内容。
>   将标题，时间，内容分别赋予变量,将变量的内容附加到文件中。}
> 
>   Writeln(F, filename);  //'将您要写入的文本写入到一个 data.txt 文件');
>   Closefile(F); {关闭文件 F}
>   {判断是否为WEB文件的末尾，不是则向上到  d:}
> End;             这是一段过程函数，要求能根据WEB页源代码如：
<a href=T453428284.txt>1 2003-09-07 00:02 T453428284.txt 现在开始
播发09月07日稿</a><br><a href=T453428800.txt>2 2003-09-07 00:03 T453428
800.txt （国际）国际社会关注巴勒斯坦总理辞职事件</a><br><a href=T453430849.t
xt>3 2003-09-07 00:07 T453430849.txt 体育新闻目录</a><br><a href=T
453432901.txt>4 2003-09-07 00:11 T453432901.txt （国际）美国防部长
强调搜寻伊大规模杀伤性武器>读出新格式的文件： 
 ！！XH
> TM（时间）
> TI（标题）
> TX（正文）
> ！！XH
> TM（时间）
> TI（标题）
> TX（正文）