Дано натуральное число. определить произведение его цифр больших 7

Var a,b,i,bug:integer;
s:string;
begin;
readln(a);
str(a,s);
b:=1;
for i:=1 to length(s) do
begin;
val(s[i],a,bug);
if a>7 then b:=b*a;
end;
writeln(b);
end.