Вывести на экран 3 числа А В С длинной 20 символов созданых с рандомных чисел от 0 до 40 - Pascal ABC

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

Вывести на экран 3 числа А В С длинной 20 символов созданых с рандомных чисел от 0 до 40. Помогите написать программу. Я не могу понять как все скомбинировать. Желательно скинуть готовый вариант. Зарание спасибо

Решение задачи: «Вывести на экран 3 числа А В С длинной 20 символов созданых с рандомных чисел от 0 до 40»

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

procedure chislo(var s:string;c:char);
var x:byte;
begin
x:=1+random(40);
s:=inttostr(x);
while length(s)<20 do
 begin
  x:=random(41);
  s:=s+inttostr(x);
 end;
if length(s)>20 then delete(s,length(s),1);
writeln('Число ',c);
writeln(s);
end;
 
var a,b,c:string;
begin
chislo(a,'A');
chislo(b,'B');
chislo(c,'C');
end.

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

Создается процедура chislo, которая принимает два параметра: переменную типа string под названием s и символ типа char под названием c.
Внутри процедуры объявляется переменная типа byte под названием x. Значение по умолчанию для x - 1, но оно может быть изменено функцией random в диапазоне от 0 до 40.
Строка s инициализируется как результат преобразования числа x из типа byte в тип string.
Затем используется цикл while, который продолжается до тех пор, пока длина строки s не достигнет 20 символов. Внутри цикла значение x генерируется случайным образом функцией random и добавляется к строке s.
Если длина строки s превышает 20 символов, то с помощью функции delete удаляется последний символ.
После выхода из цикла выводится на экран сообщение с символом c и строкой s.
В основной части программы создаются три переменные типа string под названиями a, b и c.
Функция chislo вызывается три раза, каждый раз для разных значений символов c.
Окончание программы.