说详细点儿，就是那些读入文件和输出文件的地方，谢谢大神们了！

通过楼上说的，使用文件操作过程，再将其放置在uses\用户\appdate里某个格式怪异的文件中，如：‘重要.tmp’;

那恳请问问楼上可以写一个代码之类的吗？让我好好理解一下，哪里要附上主程序，哪里是存档？

@SSSwc03 但我还是不是很清楚如何改动？您看看我的程序应该怎么改？
uses crt;
var
s,ch:string;
xueliang,times,n:longint;
begin
clrscr;
writeln('欢迎来到猜数! 如果是第一次玩请按1,否则请按2');
gotoxy(50,1);
if readkey='1' then
begin
gotoxy(20,3);
write('请输入账号:');
readln(s);
ch:=s;
end;
if readkey='2' then
begin
readln(s);
assign(input,'test.dat');
reset(input);
readln(times);
readln(xueliang);
ch:=s;
close(input);
assign(input,'');
reset(input);
end;
if s=ch then
begin
inc(times);
writeln('这是你第',times,'次游戏');
inc(xueliang,100);
writeln('您的血量为：',xueliang);
assign(output,'test.dat');
rewrite(output);
writeln(times);
writeln(xueliang);
writeln(s);
close(output);
end;
end.
为啥没反应呢？到底要咋改啊？

var
n:integer;
s,s1:string;
begin
readln(n);//首次运行输入1，否则输入2
readln(s);//本次输入的密码
if n=1 then
begin
assign(output,'test.dat');rewrite(output);
writeln(s);//作为正确密码保存起来
close(output);
assign(output,'');rewrite(output);
end;
if n=2 then
begin
assign(input,'test.dat');reset(input);
readln(s1);//从文件中读取正确密码
close(input);
if s=s1 then writeln('Right!') else writeln('Wrong!');//检验
end;
end.

@SSSwc03
太太
太谢谢您了！！请问如何加入您的工作室呀？

@SSSwc03 大神~帮我解决个问题
能帮我写两个过程“read_data”“save_data”吗？
read_data是从“data.save”读一个“money”变量
save_data是把“money”变量中的数据保存在“data.save”中
data.save就只要有一个money变量的数据
就这样了~大犇帮我~