Дано натуральное число. Определить произведение его цифр больших 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.