Обеспечить безопасное хранение паролей - 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.

Решение задачи: «Обеспечить безопасное хранение паролей»

Листинг программы

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.

Объяснение кода листинга программы

Объявлены переменные:
- a (строка) для хранения введенных пользователем данных;
- n (целое число) для подсчета количества неудачных попыток ввода.
Задаются начальные параметры:
- Устанавливается цвет шрифта на черный;
- Устанавливается размер шрифта на 18;
- Устанавливается заголовок окна на 'Пароли';
- Переменная n инициализируется значением 0.
Запускается цикл, который продолжается до тех пор, пока не будет введено правильное имя пользователя или не будет сделано 3 неправильных попытки:
- Выводится приглашение для ввода имени пользователя;
- Считывается введенное значение в переменную a;
- Если введенное значение равно '122', то выводится сообщение 'Hello';
- Если введенное значение не равно '122', то выводится сообщение 'Неправильное имя';
- Если значение переменной n равно 3, то выводится сообщение 'Вы ввели не правильное имя 3 раза перезайдите в программу!' и выполняется выход из программы.
Запускается новый цикл, который также продолжается до тех пор, пока не будет введено правильное имя пользователя или не будет сделано 3 неправильных попытки:
- Выводится приглашение для ввода пароля;
- Считывается введенное значение в переменную a;
- Если введенное значение равно '133', то выводится сообщение 'Верно!';
- Если введенное значение не равно '133', то выводится сообщение 'Пароль неправильный';
- Если значение переменной n равно 3, то выводится сообщение 'Вы ввели не правильный пароль 3 раза перезайдите в программу' и выполняется выход из программы.
Выводится сообщение 'Пароль lol или lol1' с предупреждением, что это не настоящий пароль.