Программа которая регенерирует любые цифры от 1-9, и если получится, то и буквы. желательный язык программирования pascal

Program q;
var a,b:integer;
c:char;
begin
a:=random(10);
b:=random(32)+224;
c:=chr(b);
writeln('рандомная цифра:',a);
writeln('рандомная буква:',c);
end.