Дано натуральное число. Найти сумму цифр на четных местах

var
n:string;
i, k, err, sum:Integer;
begin
Writeln('Введите число');
Read(n); //задаем число
if Length(n)<4 then // проверяем его длину
Writeln('Укажите хотя бы 4-значное число')
else
begin
sum :=0; //первоначально обнуляем счетчик суммы
for i := 1 to Length(n) do //посимвольно перебираем в цикле
begin
Val(n[i], k, err); //по старинке преобразуем строковое значение в числовое
//можно использовать и StrToInt()
if err=0 then //если успешно,
if not Odd(i) then sum :=sum+k; //проверяем четность позиции и суммируем
end;
Writeln; //пустая строка, чтобы отделить результат
Writeln('Сумма =', sum); //выводим сумму
end;
Readln;
end.

uses crt;
var
  x: string;
  i,n,s,v,v1:integer;
begin
  randomize;
  n:=random(30000);
  str(n,x);
  s:=0;
  for i:=1 to length(x) do
    begin
      if i mod 2 =0 then
        begin
          Val(x[i],v,v1);
          s:=s+v;
       end;
    end;
  writeln('Исходное число = ',n:5, '  Результат = ',s:5);
end.