Найти и вывести на экран сумму цифр, стоящих на нечетных местах вводимого натурального числа

function SumOddPositionDigit(N : longint; var Indx : integer) : integer;
var s : integer;
begin
  if (N div 10)=0 then begin
     Indx := 1;
     SumOddPositionDigit := N mod 10
  end
  else begin
    s := SumOddPositionDigit( N div 10, Indx);
    Inc(Indx);
    if odd(Indx) then SumOddPositionDigit := (N mod 10) + s
       else SumOddPositionDigit := s;
  end;
end;
 
var A : longint;
  Ind : integer;
begin
  A := 72856;
  Ind := -1;
  WriteLn(' sum = ', SumOddPositionDigit( abs(A), Ind ) );
end.

var
 A : longint;
 s : string;
 i, sum : integer;
begin
  A := 72856;
  s := IntToStr(abs(A));
  sum := 0;
  for i:=1 to Length(s) do if odd(i) then sum := sum + ord(s[i]) - ord('0');
  WriteLn(' sum = ', sum);
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var n,m,i,s:integer;
    a:array of byte;
begin
write('n=');
readln(n);
m:=0;
while n>0 do
 begin
  m:=m+1;
  setlength(a,m);
  a[m-1]:=n mod 10;
  n:=n div 10
 end;
s:=0;
for i:=m-1 downto 0 do
if not odd(i) then s:=s+a[i];//поскольку индексы с 0, то считаем сумму четных индексов
write('s=',s);
readln
end.

{$j+}
function f(n : longint) : integer;
const
  index : integer = -1;
begin
  if n = 0 then
  begin
    index := 1;
    result := 0;
  end
  else
  begin
    result := f(n div 10) + (n mod 10) * ord(odd(index));
    inc(index);
  end;
end;
 
// ...
  WriteLn(' sum = ', f(abs(A)) );
// ...