Определить общую сумму четных цифр и цифр, стоящих в нечетных разрядах

uses
  sysutils;
 
function sumNotOdd(x: longint): integer;
var
  s: integer;
begin
  s := 0;
  while x > 0 do
  begin
    if x mod 10 mod 2 = 0 then
      s := s + x mod 10;
    x := x div 10
  end;
  sumNotOdd := s;
end;
 
function sumOdd(x: integer): integer;
var
  s: integer;
begin
  s := 0;
  while x > 0 do
  begin
    if x mod 10 mod 2 <> 0 then
      s := s + x mod 10;
    x := x div 10
  end;
  sumOdd := s;
end;
 
var
  i,n1,n2:integer;
  s1,s2:integer;
begin
  s1:=0; s2:=0;
  write('Введите первое число интервала: '); readln(n1);
  write('Введите второе число интервала: '); readln(n2);
  for i:=n1 to n2 do
    begin
      write(i:3);
      s1:=s1+sumNotOdd(i);
      s2:=s2+sumOdd(i);
    end;
  writeln; 
  writeln('Сумма четных цифр:   ',s1);
  writeln('Сумма нечетных цифр: ',s2);
  readln;
end.

function sumOdd(x: integer): integer;
var
  i,s: integer;
begin
  s := 0;
  i:=1;
  while x > 0 do
  begin
    if odd(i) then
      s := s + x mod 10;
    x := x div 10;
    inc(i);
  end;
  sumOdd := s;
end;