Ввести с клавиатуры n целых чисел. Отыскать творенье и количество чисел,

Var n,p,k,b,c:integer;
begin
k:=0;
p:=1;
writeln('Введите количество чисел');
readln(n);
writeln('Введите числа');
for b:=1 to n do
begin
readln(c);
if (c mod 7 =5) then
begin
k:=k+1;
p:=p*c;
end;
end;
if (kgt;0) then begin
writeln('Творение приравнивается ',p);
writeln('Количество чисел приравнивается ',k);
end;
end.