Нужно модифицировать программу подсчета количества цифр данного числа - Pascal ABC

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

Была задача: Дано натуральное число n. Требуется подсчитать количество цифр данного числа - 73485. Она была решена:

Program ...;
var n, m, k:integer;
begin
writeln('Введите натуральное число:');
readln(n);
m:=n;
k:=0;
while m<>0 do 
begin
m:=m div 10;
k:=k+1;
end;
writeln ('В числе',n,'',k,' цифр');
end.

Теперь её нужно модифицировать так, чтобы она решала такие задачи: - найдите количество четных цифр числа; - найдите сумму цифр числа; - найдите сумму цифр числа, больших 5; - найдите первую цифру числа; - ответьте на вопрос, сколько раз данная цифра встречается в числе Можно сделать одну программу, которая будет решать все эти задачи, а можно по отдельности. Помогите решить пожалуйста. И подскажите как благодарить можно на этом форуме.

Решение задачи: «Нужно модифицировать программу подсчета количества цифр данного числа»

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

Program ...;
 
var N, K:Integer;
var M:String;
var I1:Integer;
 
begin
WriteLn('Vvedite naturalnoe chislo:');
ReadLn(n);
M := IntToStr(N);
K := 0;
for I1 := 1 to Length(M) do
begin
if (Copy(M,I1,1)='2')or(Copy(M,I1,1)='4')or(Copy(M,I1,1)='6')or(Copy(M,I1,1)='8') then
begin
K := K+1;
end;
end;
WriteLn('V chisle ', N, ', ', K, ' chyotnykh cyfr');
ReadLn(I1);
end.

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

В начале программы объявляются три переменные: N, K и M. N и K являются целочисленными переменными, а M является строковой переменной.
Затем программа предлагает пользователю ввести натуральное число и считывает его в переменную n.
Значение переменной n затем преобразуется в строку и сохраняется в переменной M.
Переменная K инициализируется нулем.
Затем в цикле for происходит проверка каждой цифры введенного числа. Цифры копируются из строки M в переменную I1.
Если цифра в позиции I1 равна 2, 4, 6 или 8, то переменная K увеличивается на единицу.
Цикл завершается, когда достигается конец строки M.
Наконец, выводится сообщение с введенным числом и количеством цифр, которые были найдены.
Программа завершается, ожидая ввода пользователя.