Перевести числа в их символьное представление - Pascal ABC

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

Датчик случайных чисел генерирует числа от 0 до 255.Нужно перевести числа в их символьное представление.Остановка программы- появление символа "*".Сколько символов было напечатано.Помогите дальше

uses crt;
var 
i,a:integer;
 
begin
randomize;
 
for i:=0 to 255 do begin
      a:=random(255);
      writeln(a,' - ',chr(a));

end;
end.

Решение задачи: «Перевести числа в их символьное представление»

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

uses crt;
var k:integer;
    a:byte;
begin
randomize;
a:=0;
k:=0;
repeat
a:=random(256);
write(chr(a));
k:=k+1;
until chr(a)='*';
writeln;
write('Получено символов=',k)
end.

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

В начале кода подключается библиотека crt, которая обеспечивает функции для работы с памятью и строками.
Затем объявляются две переменные: k и a. Переменная k типа integer, а переменная a типа byte (8 бит).
Функция randomize вызывается для инициализации генератора случайных чисел.
Переменная a инициализируется значением 0.
Переменная k инициализируется значением 0.
Затем идет цикл repeat, который выполняется до тех пор, пока значение переменной a не станет равно символу '*'.
Внутри цикла переменная a инициализируется случайным числом от 0 до 255 с помощью функции random(256).
Затем вызывается функция write для записи символа, соответствующего значению переменной a, в стандартный вывод.
Переменная k увеличивается на 1.
После окончания цикла переменная k записывается в переменную k с помощью функции write.
Затем выводится строка Получено символов= с помощью функции write.
Конец программы.