program ahhhhh;
uses crt;
type
    money=array[1..100] of integer;
    userinfo=array[1..100] of string;
    seating=array['A'..'E',1..5] of char;
var
   j,M,ans1,ans2,ans3:integer;
   rname,rpw:userinfo;
   rbalance:money;
   rseat:seating;

procedure initialize(var i,choice1:integer;var name,pw:userinfo;var balance:money;var seat:seating);
var
   userbook,seatbook:text;
   k:integer;
   n:char;
begin
     i:=0;
     assign(userbook,'C:\Users\yam2\desktop\userbook.txt');
     reset(userbook);
     while not eof(userbook) do
     begin
          i:=i+1;
          readln(userbook,name[i]);
          readln(userbook,pw[i]);
          readln(userbook,balance[i]);
     end;
     close(userbook);
     assign(seatbook,'C:\Users\yam2\desktop\seatbook.txt');
     reset(seatbook);
     for n:='A' to 'E' do
     begin
          for k:=1 to 5 do
               read(seatbook,seat[n,k]);
          readln(seatbook);
     end;
     close(seatbook);
     writeln(i);
     writeln('Welcome to our booking system!');
     writeln;
     writeln('Please choose the following:');
     writeln('1. Register');
     writeln('2. Login');
     writeln;
     write('Your choice: ');
     readln(choice1);
end;

procedure login(i,choice1:integer;var choice2,m:integer;name,pw:userinfo);
var
   input_name,input_pw:string;
   check:boolean;
begin
     if choice1=2 then
     begin
     clrscr;
     check:=false;
     writeln('You are logging in to our system.');
     repeat
     m:=0;
     writeln;
     write('Login name: ');
     readln(input_name);
     write('Password: ');
     readln(input_pw);
     repeat
     m:=m+1;
     if (input_name=name[m]) and (input_pw=pw[m])
        then check:=true;
     until (m=i) or check;
     if check=false then
     begin
          writeln('*Invalid*');
          writeln;
          writeln('Please choose the following:');
          writeln('1. Try again');
          writeln('2. Register');
          writeln;
          write('Your choice: ');
          readln(choice2);
      end;
      until (choice2=2) or (check=true);
      end;
end;

procedure reg(i,choice1,choice2:integer;var choice3,m:integer;name,pw:userinfo;balance:money);
var
   pw2:string;
   userbook:text;
   n:integer;
begin
     if (choice1=1) or (choice2=2) then
     begin
     clrscr;
     i:=i+1;
     writeln('It is to register a new account.');
     writeln;
     write('Enter a login name: ');
     readln(name[i]);
     write('Enter a password: ');
     readln(pw[i]);
     write('Enter the password again: ');
     readln(pw2);
     while pw2<>pw[i] do
     begin
          write('Incorrect. Please enter the password again: ');
          readln(pw2);
     end;
     balance[i]:=0;
     assign(userbook,'C:\Users\yam2\desktop\userbook.txt');
     rewrite(userbook);
     for n:=1 to i do
     begin
     writeln(userbook,name[n]);
     writeln(userbook,pw[n]);
     writeln(userbook,balance[n]);
     end;
     close(userbook);
     m:=i;
     writeln;
     writeln('Welcome, ',name[m],'!');
     writeln;
     writeln('Please choose the following:');
     writeln('1. Value adding');
     writeln('2. Exit');
     writeln;
     write('Your choice: ');
     readln(choice3);
     end;
end;

{procedure print(m:integer;name:userinfo;balance:money;seat:seating);
var
   k:integer;
   n:char;
   seatbook:text;
begin
     clrscr;
     writeln('cp');
     readln;
     writeln('User: ',name[m],'         Balance: ',balance[m]);
     writeln('           S C R E E N');
     assign(seatbook,'C:\Users\yam2\desktop\seatbook.txt');
     reset(seatbook);
     for n:='A' to 'E' do
     begin
          writeln(n,'| ');
          for k:=1 to 5 do
              write(seat[n,k],' | ');
     end;
end;}
{Main Program}
begin
     initialize(j,ans1,rname,rpw,rbalance,rseat);
     login(j,ans1,ans2,M,rname,rpw);
     reg(j,ans1,ans2,ans3,M,rname,rpw,rbalance);
     {print(M,rname,rbalance,rseat);}
     write('end');
     readln;
end.