Составить подпрограмму, определяющую в строке % цифр.

это разве подпрограмма, и если возможно без const и digits

Видите ли, в Паскале нет подпрограмм, есть процедуры и функции. В этом случае я имею право рассматривать подпрограмму, как самостоятельную программу, выполняющую решение определенной подзадачи, каковой является нахождение процента чисел. О том, что у Вас ограничение на использование средств языка (констант, множеств, а также возможно и еще что-то), Вы тоже в задании не написали. Поэтому все сделано в соответствии с заданием.

Если у Вас возникли дополнительные требования - сформулируйте новое задание и перечислите все их там.

Процент цифр можно найти, как процентное отношение количества цифр к длине строки, но при этом будут учитываться и пробелы. Если в строке есть символы, которые учитывать не надо, следует подсчитать количество таких символов и предварительно вычесть его из длины строки. В приведенной ниже программе для простоты считается, что учитываться должны все символы.const  digits=['0'..'9'];var  i,k,n:integer;  p:real;  s:string;begin  Writeln('Введите строку');  Readln(s);  n:=Length(s); k:=0;  for i:=1 to n do    if s[i] in digits then Inc(k);  p:=100*k/n;  Writeln('Процент цифр в строке равен ',p:0:2)end.Тестовое решение:Введите строкуСамым большим водопадом в мире считается Анхель (Венесуэла), его высота 979м. Открыт в 1933г. летчиком Джеймсом Анхель.Процент цифр в строке равен 5.88