pascal语言编写学生管理系统（含文件读写，从文件中读取学生数据，并且可以将更改后的学生数据写入文件中保存起来）

说明：
  该程序能够从文件中读取学生数据，并且可以将更改后的学生数据写入文件中保存起来。
一、部分代码：

//主程序
begin
  e := 0;m := 0;i := 0;j := 0;
  sname := '';ssex := '';sage := '';snation := '';sscore := '';{temp2 := '';}n := '';temp := '';
  writeln('载入数据..');
  //载入数据
  assign(stutxt,'stu.txt');
  reset(stutxt);
  while not eof(stutxt) do
  //能进入循环证明有数据
  begin
	Inc(m);
	//开始
	readln(stutxt,stu[m].name);
	readln(stutxt,stu[m].sex);
	readln(stutxt,sage);
	val(sage,stu[m].age,j);
	readln(stutxt,stu[m].nation);
	readln(stutxt,sscore);
	val(sscore,stu[m].score,j);
	//每读完5行m要加1
  end;
  writeln('数据载入完毕！');
  
  menu();
  write('请选择（按4键调出菜单）：');
  while true do
    begin
	  readln(n);
	  val(n,e,i);
	  //转换成功
	  if i=0 then 
	    begin
		  if e=1 then
			inputStu(m)
			else if e=2 then
			  outputStu(m)
			else if e=3 then
			  sortStu(m)
			else if e=4 then
			  menu()
			else if e=5 then
			  deleteStu(m)
			else if e=6 then
			  updateStu(m)
			else if e=7 then
			  begin
			    save2file(m);
				writeln('退出！');
				break;
			  end
			else if e=8 then
			  begin
				writeln('退出！');
				break;
			  end
			else
			  begin
			    writeln('没有该选项！');
				write('请重新输入：');
				continue;
			  end;
	    end
	  //转换失败
	  else 
	    begin
		  writeln('您输入的格式不正确！');
		  write('请重新输入：');
		  continue;
		end;
	write('请选择（按4键调出菜单）：');
	end;
	//注意关闭
	close(stutxt);
end.

二、运行结果：
1.界面

2.查看从文件中读取的学生信息

3.录入学生信息

4.排序输出

5.修改学生信息

姓名修改

 剩余修改与姓名修改类似
6.删除学生信息

7.保存修改并退出
 先增加一个学生xxx

 保存并退出

 重新进入程序，发现上次的更改生效（xxx成功录入）