program idsave_2;
uses crt;
var
s:string; //文件名字符串
number2:longint; //循环计数
password:string; //用户密码
ns:longint;
is:longint;
ss:string;
ifrun:integer;
hehe:string;
hehe2:string;
build:integer;
begin
build:=1;
assign(input,'C:\Users\qi\Desktop\admin_n.txt');
reset(input);
readln(input,ns);
number2:=ns+1;
close(input);
writeln('Hello!');
readln;
clrscr;
repeat
writeln('admin:________________');
gotoxy(7,1);
readln(s);
for is:=0 to ns do
begin
str(is,hehe);
assign(input,hehe+'.txt');
reset(input);
read(input,ss);
if ss=s then
begin
ifrun:=0;
gotoxy(1,3);
writeln('Then admin is repeated');
readln;
clrscr;
writeln('admin:________________');
gotoxy(7,1);
break;
end;
if ss<>s then
ifrun:=1;
end;
until ifrun=1;
writeln('password:___________________');
gotoxy(10,2);
readln(password);
str(number2,hehe2);
assign(output,hehe2+'.txt');
rewrite(output);
writeln(output,s);
writeln(output,password);
close(output);
clrscr;
writeln('OK!');
readln;
end.

大神帮忙

@ax_pokl 帮我看看

一个用户名密码登录程序