Считать последовательность цифр и преобразовать ее в последовательность соответствующих латинских букв - PascalABC.NET

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

Пожалуйста можете помочь, с решением вот такой задачи. Задание: Считать последовательность цифр и преобразовать ее в последовательность соответствующих латинских букв Нужно, чтобы пользователь вводил несколько цифр и программа эти цифры переводила в буквы латинского алфавита Например: 8 1 7 5 8-"H" 1-"А" 7-"G" 5-"E"

program laba6;
Var
    //I : Byte;
    n:integer;
   
Begin
 
write ('Vvedite n=');
read (n);
  //For I:=1 to n do
  Write(n:4, '-',Chr(64+n));
 
End.

Решение задачи: «Считать последовательность цифр и преобразовать ее в последовательность соответствующих латинских букв»

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

var a:array[1..100] of byte;
    n,i:byte;
begin
repeat
write('Введите n от 2 до 100 n=');
readln(n);
until n in [2..100];
randomize;
for i:=1 to n do
 begin
  a[i]:=1+random(26);
  write(a[i]:4);
 end;
writeln;
writeln('Перевод в буквы');
for i:=1 to n do
write(Chr(64+a[i]));
end.

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

Объявляются переменные:
- a: массив на 100 элементов типа byte;
- n, i: byte;
В цикле repeat запрашивается значение переменной n.
- Выводится сообщение 'Введите n от 2 до 100 n=', а затем считывается значение n с помощью функции readln.
- Цикл повторяется до тех пор, пока n не будет в диапазоне от 2 до 100.
Задается случайное начальное значение для i в диапазоне от 1 до n.
В цикле for i от 1 до n выполняется следующая последовательность действий:
- a[i] присваивается случайное число от 1 до 26 (предполагается, что это соответствует ASCII-кодам символов от 'A' до 'Z').
- Выводится значение a[i] с помощью функции write.
Выводится сообщение 'Перевод в буквы', а затем в цикле for i от 1 до n выводятся соответствующие символы с помощью функции Chr(64+a[i]).