Вводится последовательность чисел, признак конца ввода, ввод числа 0. найти сумму чисел не кратных 7. sos

Program n1;
var sum,a: integer;
begin
sum:=0;
while true do
begin
readln(a);
if(a mod 7<>0) then sum:=sum+a;
if(a=0) then break;
end;
writeln(sum);
end.