Определить, верно ли, что произведение цифр числа больше заданного числа А (консольное приложение)

program Project1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 var
    Inputstr:string;
    i:integer;
    Ints:integer;
    sum:integer;
begin
  while Inputstr<>'exit' do
    begin
      sum := 1;
      Readln(Inputstr);
      for I := 1 to High(Inputstr) do
         if TryStrToInt(Inputstr[i],Ints) then sum := sum * Ints;
      Writeln(IntToStr(sum));
    end;
end.

var
    Inputstr:string;
    i:integer;
    Ints,A:integer;
    sum:integer;
begin
  while Inputstr<>'exit' do
    begin
      sum := 1;
      Readln(Inputstr);
      Readln(A);
      for I := 1 to Length(Inputstr)-1 do
         if TryStrToInt(Inputstr[i],Ints) then sum := sum * Ints;
      Writeln(IntToStr(sum));
      if A>sum then  Writeln('A>') else Writeln('A<');;
    end;

program p0924;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var
  n, a, x :Integer;
  m :Integer;
begin
  repeat
    Write('введите четырехзначное число - ');
    Readln(n);
  until (n > 999) and (n < 10000);
  Write('заданное число - ');
  Readln(a);
  m := 1;
  repeat
    x := n mod 10;
    m := m * x;
    n := n div 10;
  until (n = 0) or (m = 0);
  if m > a then
    Writeln(Format('произведение (%d) больше (%d) - ВЕРНО', [m, a]))
  else
    Writeln(Format('произведение (%d) больше (%d) - НЕ ВЕРНО', [m, a]));
  { end if }
  Readln;
end.