Вопрос Помогите решить задачу в паскале

[Arrarppen]

9.Составить программу, чтобы компьютер сгенерировал случайное целое трехзначное число, с помощью строковых функций определил, сколько в нем единиц, десятков и сотен, вывел эту информацию на экран.

 

[YooHaRu]

x:=random(100)+900; str(x,s) writeln(Copy(s,1,1), , Copy(s,2,1), , Copy(s,3,1));

 

[Семён170299]

1000

 

[вкторф]

3000