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

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.

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.

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
K := K+StrToInt(Copy(M,I1,1));
end;
WriteLn('Summa cyfr chisla ', N, ' = ', K);
ReadLn(I1);
end.

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 StrToInt(Copy(M,I1,1))>5 then K := K+StrToInt(Copy(M,I1,1));
end;
WriteLn('Summa cyfr chisla ', N, ' kotorye bolshe pyati = ', K);
ReadLn(I1);
end.

Program ...;
 
var N, K:Integer;
var M:String;
var I1:Integer;
 
begin
WriteLn('Vvedite naturalnoe chislo:');
ReadLn(n);
M := IntToStr(N);
K := 0;
K := StrToInt(Copy(M,0,1));
WriteLn('Pervaya cyfra chisla ', N, ' = ', K);
ReadLn(I1);
end.

program Digits;
 
type
  TVector = array [0..9] of integer;
var
  N: integer;
  Frequences: Tvector;
  k, m: integer;
  CountEvenDigits: integer; {количество четных цифр числа}
  SumDigits: integer;       {сумма цифр числа}
  SumDigitsOver5: integer;  {сумма цифр числа, больших 5}
  FirstDigit: integer;      {первая цифра числа}
begin
  writeln('Введите натуральное число:');
  readln(N);
  for k := 0 to 9 do
    Frequences[k] := 0;
  CountEvenDigits := 0;
  SumDigits := 0;
  SumDigitsOver5 := 0;
  m := N;
  while m <> 0 do
  begin
    k := m mod 10;
    m := m div 10;
    {количество четных цифр числа}
    if not odd(k) then
      Inc(CountEvenDigits);
    {сумма цифр числа}
    SumDigits := SumDigits + k;
    {сумма цифр числа, больших 5}
    if k > 5 then
      SumDigitsOver5 := SumDigitsOver5 + k;
    {первая цифра числа}
    if m = 0 then
      FirstDigit := k;
    {подсчёт количества различных цифр в числе}
    Inc(Frequences[k]);
  end;
  writeln('количество четных цифр числа: ', CountEvenDigits);
  writeln('сумма цифр числа: ', SumDigits);
  writeln('сумма цифр числа, больших 5: ', SumDigitsOver5);
  writeln('первая цифра числа ', FirstDigit, ' встречается ',
    Frequences[FirstDigit], ' раз(а)');
end.

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

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

var n, m, k, cifra, shetchik :integer;
begin
   writeln('Введите натуральное число:');
   readln(n);
   writeln('Введите цифру, которую надо подсчитать в числе:');
   readln(k);
   m:=n;
   shetchik:=0;
   while m<>0 do 
    begin
      cifra := m mod 10;
      if cifra=k then shetchik := shetchik + 1;
      m:=m div 10;
end;
writeln ('В числе ',n,' цифра ',k,' встречается ',shetchik,' раз');
end.

program z1655734;   {сумма цифр больших 5}
 var n,m,c,s:integer;
begin
 write('Введите натуральное число:');
 readln(n);
 m:=n;
 s:=0;
 while m<>0 do
  begin
   c:=m mod 10;
   if c>5
    then s:=s+c;
   m:=m div 10;
end;
writeln ('В числе ',n,' сумма цифр больших пяти s=',s);
end.

program z1655734;   {Первая цифра}
 var n,m:integer;
begin
 write('Введите натуральное число:');
 readln(n);
 m:=n;
 while m>9 do
  m:=m div 10;
 writeln ('В числе ',n,' первая цифра ',m);
end.