Напишите программу. Дано натуральное число. Найти сумму его цифр, кратных 7

Var i, n, m, sum:integer; d:array[1 ... 20] of integer; beginn: = 34511; repeat i: = i + 1; d[i]: = n mod 10; n: = n div 10; until n = 0; //writeln (d) ; foreach m in d dosum: = sum + m; writeln (sum) ; if sum mod 7 = 0 then write ('сумму его цифр, кратна 7') elsewrite ('сумму его цифр, некратна 7') ; end.