Помогите плз. с такой задачкой: Капитан дальнего плавания Константин

Помогите плз. с такой задачкой: Капитан дальнего плавания Константин – очень суеверный человек. Осмотрев выставленные в ряд пачки с печеньем, приготовленные для очередного маршрута, он выбросил на пристань каждую K-ю пачку, если сумма цифр её массы равнялась M. Помогите возмущённому коку подсчитать массу печенья, которая осталось у него на кухне. Формат ввода На вход программы поступают три числа N – количество пачек, K и M. В следующей строке записаны N натуральных чисел – массы пачек печенья. Все числа не превышают 105. Формат вывода Программа должна вывести одно число – суммарную массу всех оставленных пачек. Пример Ввод 10 3 9 1 2 9 1 2 1 1 2 1116 7 вывод 17

Program A;

var

N,K,M,M1,i:byte;

P,P1,H:integer;

t:0..1;

begin

readln(N,K,M);

for i:=1 to N do

begin

read(P);

P1:=P;

M1:=0;

t:=0;

if i mod K = 0 then

while P>0 do

begin

M1:=M1+P mod 10;

P:=P div 10;

end;

if M1=M then

t:=1;

if t=0 then

H:=H+P1;

end;

write(H);

end.

Помогите плз. с такой задачкой: Капитан дальнего плавания Константин – очень суеверный...