У меня другой вариант:
uses SysUtils;
var n,i,sum:integer;
s:string;
begin
Write('Chislo = ');
Readln(n);
s:=IntToStr(n);
sum:=0;
for i:=1 to Length(s) do
if (i mod 2)<>0 then
sum:=sum+(Ord(s[i])-Ord('0'))
else
sum:=sum-(Ord(s[i])-Ord('0'));
Writeln('Summa = ',sum);
Readln;
end.