Паскаль. Вводится целое число. Найти разность между суммами цифр стоящих на четных и нечетных местах

var   sn, s, n, c : integer; begin   read (n);   c := 0; sn := 0; s := 0;   while n > 0 do   begin     if c mod 2 = 0 then s := s + n mod 10     else sn := sn + n mod 10;     n := n div 10;     inc (c);   end;   if c mod 2 = 0 then writeln (s - sn)   else writeln (sn - s); end.