Обеспечить безопасное хранение паролей - PascalABC.NET

Формулировка задачи:

Вчера я хотел создать простую программу для себя (я заинтеровался программированием) В этой программе хранятся пароли но чтобы их увидеть нужно нужно ввести имя пользователя и пароль там только 3 попытки ввода но у меня проблема с именем пользователя но он пишет НЕ ПРАВЫЛЬНОЕ ИМЯ ПОЛЬЗОВАТЕЛЯ Но имя долнжно быть таким: 122 Вот код:
Uses
  GraphABC;
Var
  n:string;
  var a:integer; 
begin
SetFontColor(clBlack);
SetFontSize(18);
Window.Caption := 'Пароли.';
  write('                       Введите имя пользователя');
  if a=122 then writeln ('Hello') else
  readln(n);
  writeln('                         Неправильное имя'); 
  readln(n);
  writeln('Неправильное имя');
  readln(n);
  writeln('Вы ввели не правильное имя 3 раза перезайдите в программу!');
  readln(n);
  exit;
 writeln('Введи секретный код:');
 if a=133 then writeln('Верно!') else 
 readln(n);
 writeln('Пароль неправильный');  
 Readln(n);
 writeln('Пароль неправильный');
 Readln(n);
 writeln('Вы ввели не правильный пароль 3 раза перезайдите в программу');
 exit;
 writeln('Пароль lol или lol1'); //Пароль не настоящий
 readln;
 end.

Код к задаче: «Обеспечить безопасное хранение паролей - PascalABC.NET»

textual
Uses
  GraphABC;
Var
  a:string;
  var n:integer; 
begin
SetFontColor(clBlack);
SetFontSize(18);
Window.Caption := 'Пароли.';
n:=0;
repeat
write('                       Введите имя пользователя');
readln(a);
if a='122' then writeln ('Hello') else
 begin
  writeln('                         Неправильное имя'); 
  inc(n);
 end;
 if n=3 then 
  begin
   writeln('Вы ввели не правильное имя 3 раза перезайдите в программу!');
   exit;
  end;
 until(a='122')or(n=3);
 n:=0;
 repeat
 writeln('Введи секретный код:');
 readln(a);
 if a='133' then writeln('Верно!') else 
  begin
   writeln('Пароль неправильный');  
   inc(n);
  end; 
 if n=3 then 
  begin
   writeln('Вы ввели не правильный пароль 3 раза перезайдите в программу');
   exit;
  end;
 until(a='133')or(n=3); 
 writeln('Пароль lol или lol1'); //Пароль не настоящий
  end.

7   голосов, оценка 3.857 из 5


СОХРАНИТЬ ССЫЛКУ