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

var
  num:integer;
  p:word;
begin
if TryStrToInt(Edit1.Text, num) then
begin
 p :=1;
 while num>0 do
 begin
if (num mod 10) mod 3=0 then
 p :=p*(num mod 10);
 num :=num div 10;
 end;
ShowMessage('Произведение всех цифр, кратных 3 равно'
+#10#13+IntToStr(p);
 end;
end;

function mod3 (ch:Char) : integer;
begin
result:=1;
if Ch in ['3', '6', '9'] then
result:=StrToInt(Ch);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer; s:string;
begin
j:=1;
 s:=Edit1.Text;
 For i:=1 to length(s) do
 j:=j*Mod3(s[i]);
 Label1.Caption:=IntToStr(j);
end;

var i, Mult, Count : integer;
    s              : string;
begin
 Mult := 1;
 Count := 0;
 s:=Edit1.Text;
 if not TryStrToInt(s, i)
  then begin
        ShowMessage('Введено неверное целое число'#13'Повторите ввод');
        Edit1.Text := '';
        Edit1.SetFocus;
        Exit;
       end;
 for i:=1 to length(s) do
  begin
   if s[i] in ['3', '6', '9']
    then begin
          Mult := Mult * StrToInt(s[i]);
          inc(Count);
         end;
  end;
 Label1.Caption := Format('Найдено %d цифр, кратных 3',[Count]);
 Label2.Caption := Format('Их произведение = %d',[Mult]);
end;

Var  a,b,max:integer;
B:=0;
max:=0;
repeat
 repeat
  a:=strtoint(edit1.text);
 until a>0;
 B:=b+1;
 if a>max then max:=a;
until a=1;
Lable1.caption:=('Количество=' +inttostr(b));
label3.caption:=(' максимальное=' +inttostr(max));