Ребят, помогите!

написать программу:

Является ли сумма цифр заданного 7-значного числа, стоящих в разрядах десятков тысяч, сотен и единиц (1 234 567) числом четным или кратным 7?

var

s, x, n: integer;

begin

writeln ('Введите число: ') ;

read (n) ;

x : = 1000000;

repeat

s : = s + (n div x) mod 10;

x : = trunc (x / 10) ;

until x < 1;

writeln ('Сумма = ', s) ;

if s 0 then

begin

if s mod 2 = 0 then writeln ('Сумма - число четное')

else writeln ('Сумма - число нечетное') ;

if s mod 7 = 0 then writeln ('Сумма - число кратное 7')

else writeln ('Сумма - число не кратное 7') ;

end;

end.