(N-IDE)RP_PDA_lite.pas

program PDA;
uses Crt;
var
id,pas,paslog,menu,key,pasad:string;
textt:textFile;
money,moneyad:integer;
begin
    money := 0;
    repeat
        clrscr;
        writeln('1)регистрация');
        writeln('2)логин');
        read(menu);
        if (menu = '1') or (menu = 'register') then
            begin
                clrscr;
                writeln('регистрация');
                writeln('имя:');
                read(user);
                writeln('ID:');
                read(id);
                writeln('пароль:');
                read(pas);
                id := id + '.pda';
                assign(textt, id);
                rewrite(textt);
                writeln(text, user);
                writeln(text, pas);
                writeln(text, money);
            end;
        if (menu = '2') or (menu = 'login') then
            begin
                clrscr;
                writeln('логин');
                writeln('ID:');
                read(id);
                writeln('пароль:');
                read(paslog);
                id := id + '.pda';
                assign(textt, id);
                rewrite(textt);
                readln(text, user);
                readln(text, pas);
                readln(text, money);
                if paslog = pas then
                    begin
                        while true do begin
                        writeln('<exit> - выход|');
                        writeln('--------------');
                        writeln('_PDA lite_');
                        writeln('user: ',user);
                        writeln('------------');
                        writeln('money: ',money);
                        writeln('------------');
                        write('>');
                        read(key);
                        if key = 'exit' then break;
                        if key = 'help' then
                            begin
                                clrscr;
                                writeln('_помощь_');
                                writeln('<user> - смена имени');
                                writeln('<exit> - выход);
                                readln;
                            end;
                        if key = 'money' then
                            begin
                                clrscr;
                                write('пароль:',pasad);
                                if pasad = 'admin' then
                                    begin
                                        clrscr;
                                        writeln('сколько');
                                        read(moneyad);
                                        money := money + moneyad;
                                    end;
                            end;
                        if key = 'user' then
                            begin
                                clrscr;
                                writeln('введите новое имя');
                                read(user);
                            end;
                assign(textt, id);
                rewrite(textt);
                writeln(text, user);
                writeln(text, pas);
                writeln(text, money);
                        end;
                    end;
            end;
    until (false)
end.