Дан текст, в котором имеются цифры: Найти их произведение, найти минимальную цифру.

var txt,cop:string; ch,pr,error,min:integer; i:byte; pr1:boolean;
begin
  writeln('Введи текст');
  readln(txt);
  pr:=1;pr1:=true;
  for i:=1 to length(txt) do
  if txt[i] in ['0'..'9'] then begin
                                 cop:='';
                                 while txt[i] in ['0'..'9'] do
                                 begin
                                   cop:=cop+txt[i];
                                   inc(i);
                                 end;
                                 val(cop,ch,error);
                                 if pr1 then begin
                                               min:=ch;
                                               pr1:=false;
                                             end
                                        else if ch<min then min:=ch;
                                 pr:=pr*ch;
                               end;
  writeln('Минимум- ',min,'; Произведение- ',pr);
end.

inc(i);
 end;
 val(cop,ch,error);
 if pr1 then begin
 min:=ch;
 pr1:=false;
 end
 else if ch<min then min:=ch;
 pr:=pr*ch;

uses crt;
var
s1:string;
z,i,p,x,min:integer;
a:array [1..100] of integer;
begin
clrscr;
writeln('vvedite stroku iz chisel: ');
readln(s1);
for i:=1 to ord(s1[0]) do
begin
val(s1[i],a[i],x);
end;
p:=1;
for i:=1 to ord(s1[0]) do
begin
p:=p*a[i];
end;
writeln('proizvedenie chisel naturalnogo chisla: ',p);
begin
min:=a[1];
for i:=2 to ord(s1[0]) do
begin
if a[i]<min then
min:=a[i];
end;
writeln(' Min = ',min)
end;
readkey;
end.

uses crt;
var s:string;
    min,i:byte;
    p:longint;
begin
clrscr;
writeln('Введи текст');
readln(s);
p:=1;min:=9;
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
 begin
  p:=p*(ord(s[i])-48);
  if ord(s[i])-48<min then min:=ord(s[i])-48;
 end;
writeln('Минимум- ',min,'; Произведение- ',p);
readln
end.