Составить подпрограмму, подсчитывающую в строке процент цифр - Pascal ABC

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

Здравствуйте, помогите пожалуйста дописать (подкорректировать) программу. Она полностью работает, но надо правильно вставить туда слова Procedure или Function

program cifry;
const
cifry1=['0'..'9'];
var
s:string;
i,k,n:integer;
p:real;
begin
writeln('Введите строку:');
readln(s);
while pos(' ',s)<>0 do delete (s,pos(' ',s),1);
writeln(s);
proc;
begin
n:=Length(s); k:=0;
  for i:=1 to n do
    if s[i] in cifry1 then Inc(k);
  p:=100*k/n;
  Writeln('Процент цифр в строке равен ',p:0:2)
  end;
  end.

Решение задачи: «Составить подпрограмму, подсчитывающую в строке процент цифр»

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

const cifry1=['0'..'9'];
function percent(s:string):real;
var i,k:integer;
begin
k:=0;
for i:=1 to length(s) do
if s[i] in cifry1 then inc(k);
percent:=100*k/length(s);
end;
var s:string;
begin
writeln('Введите строку:');
readln(s);
writeln('Процент цифр в строке равен ',percent(s):0:2)
end.

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

Объявляется константа cifry1, которая содержит набор цифр от 0 до 9.
Объявляется функция percent, которая принимает строку и возвращает процент цифр в этой строке.
В функции percent объявляются две переменные: i и k. Переменная i используется для цикла по символам строки, а переменная k используется для подсчета количества цифр.
Переменная k инициализируется нулем.
Цикл проходит по каждому символу строки.
Если символ является цифрой (проверка s[i] in cifry1), то к переменной k прибавляется единица.
После прохода по всем символам строки, функция возвращает процент цифр, который вычисляется как отношение k к длине строки, умноженное на 100.
В основной программе объявляется переменная s для ввода строки.
Пользователю предлагается ввести строку.
Введенная строка сохраняется в переменной s.
Вызывается функция percent с аргументом s.
Результат функции percent выводится на экран вместе с сообщением.