Последовательно вводятся целые положительные числа, пока не будет введено отрицательное число.Определить разность между суммой чисел кратных семи и количеством четных чисел.


program dz;
var S,K,N,a:integer;
begin
K:=0;
N:=0;
while a>=0 do
begin
writeln('текущее число');
readln(a);
If a mod 7=0 then K:=K+a;
If a mod 2=0 then N:=N+1;
S:=K-N;
end;
writeln('сумма чисел кратных 7=',N);
writeln('количество четных чисел',N);
writeln('разность суммы и количества',S);
end.

Помогите найти ошибку ,неправильно выводит сумму чисел кратных семи и разность