var
  P, o, N: string;
  i, LoginMod, NumberPlayers: integer;
  T: text;
  User: array[1..100, 1..3] of string;

procedure LoadDataStats;//Load GameStats
var
  i: integer;
begin
  Assign(T, 'DataStatistic.txt');
  Reset(T);
  Readln(T, NumberPlayers);
  for i := 1 to NumberPlayers do
  begin
    Readln(T, User[i, 1]);
    Readln(T, User[i, 2]);
    Readln(T, User[i, 3]);
  end;
  Close(T);
end;

procedure ExportDataStats;//Export GameStats
var
  i: integer;
begin
  Assign(T, 'DataStatistic.txt');
  Rewrite(T);
  Writeln(T, NumberPlayers);
  for i := 1 to NumberPlayers do
  begin
    writeln(T, User[i, 1]);
    writeln(T, User[i, 2]);
    writeln(T, User[i, 3]);
  end;
  Close(T);
end;

begin
  LoadDataStats;
  Writeln('1. Login');
  Writeln('2. Register');
  Read(LoginMod);
  if LoginMod = 1 then
  begin
    P := '';
    N := '';
    Write('UName: ');
    Read(N);
    for i := 1 to NumberPlayers do
    begin
      if User[i, 1] = N then
      begin
        Write('UPass: ');
        Read(P);
        if P = User[i, 2] then
        begin
          Write('Конец');
          read(o);
        end
        else
        begin
          Write('Wrong password!');
          P := '';
          Write('Конец');
          read(o);
        end;
      end
      else
      begin
        Write('Wrong Login!');
      end;
    end;
  end
  else
  begin
    Inc(NumberPlayers);
    User[NumberPlayers, 1] := '';
    User[NumberPlayers, 2] := '';
    Write('Login: ');
    Readln(User[NumberPlayers, 1]);
    Write('Pass: ');
    Read(User[NumberPlayers, 2]);
    Write('Конец');
    read(o);
  end;
  ExportDataStats;
end.