В последовательности целых чисел определить количество четных чисел, кратных 7

uses crt;
var
i,n,k:integer;
a:array[1..100] of integer;
begin
writeln('введите числа последовательности. Окончанием ввода будет число 0');
i:=0;
n:=0;
repeat
i:=i+1;
n:=n+1;
read(a[i]);
write(' ');
until (a[i]=0) or (i>1000);
writeln;
k:=0;
writeln('Последовательность:');
for i:=1 to n-1 do
begin
write('a[',i,']=',a[i],' ');
if ((a[i] mod 2)=0) and ((a[i] mod 7)=0) then
k:=k+1;
end;
writeln('кол-во целых чётных чисел кратных 7 - ',k);
end.

uses crt;
var k,n: integer;
begin
write('vvedite chislo ');
readln(n);
if (n mod 7=0) and (n mod 2=0) then inc(k);
while n<>0 do
      begin
      write('vvedite chislo ');
      readln(n);
      if (n mod 7=0) and (n mod 2=0) then inc(k);
      end;
writeln(k-1);
end.

const
  lim1=30000;
  lim2=1000;
var
  a,kol,res:integer;
begin
  kol:=0;
  res:=0;
  repeat
    repeat
      readln(a);
      if abs(a)>lim1 then
        writeln('Oshibka vvoda. |a|<=',lim1);
    until abs(a)<=lim1;
    if a<>0 then
      begin
        inc(kol);
        if (a mod 2=0) and (a mod 7=0) then
          inc(res);
      end;
  until (a=0) or (kol=lim2);
  write(res);
end.