Сгенерировать пароль по буквам в логине

program lb1;//имя программы
 
uses
  crt;//подключение графического модуля
 
var//тип куда мы добавляем переменные для разных операторов
  s, b1, b2, b4, b5, b6: string;//строковый тип данных для обработки строковой информации 
  n, b3: integer;//целые числа без плавающей запятой
 
begin//начало программы
  clrscr;//процедура очистки консоли
  write('Введите Ваш Логин_');//ввод логина (твоего имени)
  readln(s);//считывает значения переменных построчно из переменной s
 
  n := length(s); //число символов в логине
  writeln(n, '-букв в логине'); //вывод сколько букв в логине считывание из переменной
 
  randomize;//генератор случайных чисел
  b1 := chr(random(26) + ord('A'));//случайные заглавные буквы английского алфавита.
  b2 := chr(random(26) + ord('A'));//случайные заглавные буквы английского алфавита.
  b3 := (n * n) mod 10;//где mod 10 - остаток от деления числа на 10
  b4 := chr(random(10) + ord('0'));//случайная цифра
  b5 := chr(random(10) + ord('!')); // случайный символ из множества {!,",#,$,%,&,',(,),*}
  b6 := chr(random(32) + ord('а')); //случайная малая буква русского алфавита.
  writeln('', b1, b2, b3, b4, b5, b6);//случайный символ из множества {!,",#,$,%,&,',(,),*}.
end.//конец программы