Чему равна знакочередующаяся сумма цифр числа n — Pascal(Паскаль)

число 569,нужно 5+(-6)+9)

program z1;
var err,temp,i,x,result:integer;xStr:string;
BEGIN
  writeln('Vvedite 4iclo');     
  readln(x);                {Получаем число}
  writeln('x = ',x);
  str(x,xstr);              {конвертируем в тип string и записываем в xStr}
   for i:=1 to length(xstr) do      {циклимся от 1 до длинны числа(тип:string)}
   begin                {начало цикла}
      val(copy(xStr,i,1),temp,err); {конвертим вырезанную цифру в числовой тип}
      x:=temp;
      if (i mod 2) = 0 then x:=x*(-1);
      result:=result+x;
    end;
 writeln('result = ',result);           {вывод результатов}
 readln;                {просто для того чтобы можно было посмотреть результат}
end.