Вычислить сумму индексов элементов, значения которых не могут быть именами переменных - Turbo Pascal - Ответ 7381341

Function Sum5Index(s : String) : Integer;
Var k,i : Byte;
Begin
  k:=0;
  While Length(s)>0 do
  Begin
    For i:=1 to Length(Copy(s,1,5)) do
      Inc(k,i*Ord(s[i] in ['0'..'9']));
    Delete(s,1,5);
  end;
  Sum5Index:=k;
end;
 
Begin
 Writeln(Sum5Index('KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8'));
 Writeln(Sum5Index('abcd01bcdea2cdeab3cdabc4e')); { 5+1+2+3+4 = 15 }
end.

Function Sum5Index(s : String) : Integer;
Var k,i : Byte;
Begin
  If Length(s)>0 then
  Begin
    k:=0;
    For i:=1 to 5 do
      If i<=Length(s) then Inc(k,i*Ord(s[i] in ['0'..'9']));
    Delete(s,1,5);
    Sum5Index:=k+Sum5Index(s);
  end
    else Sum5Index:=0;
end;
 
Begin
 Writeln(Sum5Index('KDSFJHGLKDJGHLSUIRH5HGUHG58HGLSHDJHTI8'));
 Writeln(Sum5Index('abcd01bcdea2cdeab3cdabc4e')); { 5+1+2+3+4 = 15 }
end.