Дано целое натуральное число. определить является ли произведение всех его цифр двузначным числом через while или until паскаль

uses crt;
var x:string;
i,mult,len:integer;
begin
mult:=1;
read(x);
i:=1;
len:=length(x);
while i<=len do
begin
mult:=mult*strtoint(x[i]);
i:=i+1;
end;
if length(inttostr(mult))=2 then 
writeln('Yes')
else 
writeln('No'); 
end.