3.文本文件的写操作：

　　　　　(1)调用assign过程，把磁盘文件赋予文本文件变量；

　　　　　　　　assign(fp,filename);

　　　　　(2)调用rewrite过程，为读操作做准备；

　　　　　　　　rewrite(fp);

　　　　　(3)在需要读数据的位置调用write过程或writeln过程。

　　　　　　　　writeln(fp,var1,var2,...,varn);

　　4.文本文件的关闭操作：

　　　　　close(fp);

　　5.文本文件的其他操作：

　　　　　(1)EOF(fp)—布尔函数，用于判断文件结束否。

　　　　　(2)EOLN(fp)—布尔函数，用于判断行结束否。

　　例1:下面是一个建立和使用文件的程序：

　　program wenjian;

　　const n=3; m=2;

　　type student=record

　　       name:string;

　　       score:array[1..m] of 0..100;

　　        end;

　　var  st:array[1..n] of student;

　　     stfile:file of student ;

　　     sumst:array[1..n] of integer;

　　     sumsub:array[1..m] of integer;

　　     sum:integer;

　　procedure newfile;

　　 var i,j:integer;

　　 begin

　　 assign(stfile,'score.fil');

　　 rewrite(stfile);

　　 for i:=1 to n do

　　 begin

　　 writeln('Input student  ',i,'  name and ',m,' score');

　　 readln(st[i].name) ;

　　    for j:=1 to m do

　　    read(st[i].score[j]);

　　    readln;

　　 write(stfile,st[i]);

　　 end;

　　 close(stfile);

　　 writeln ;

　　 writeln;

　　 end;

　　procedure jisuan;

　　var i,j:integer;

　　begin

　　assign(stfile,'score.fil');

　　reset(stfile);

　　for i:=1 to m do sumsub[i]:=0;

　　for i:=1 to n do