Найти наименьшее число в строке

var S:string;
     m,i,n,min:integer;
begin
writeln('vvedite posledovatelnost simvolov');
readln(s);
For i:=1 to lenght(s) do
if (Ord(s[i])>=48) and (Ord(s[i])<=57) then
begin
m:=Ord(s[i])-48;
n:=n*10+m;
end
else if n<min then
min:=n;
writeln(min);
readln;
end.

var S:string;
m,i,n,min:integer;
 
begin
writeln('vvedite posledovatelnost simvolov');
readln(s);
n:=1;
min:=1000;
For i:=1 to length(s) do
if (Ord(s[i])>=4) and (Ord(s[i])<=57) then
begin
m:=Ord(s[i])-48;
n:=n*10+m;
 if n<min then
 min:=n;
end
else
begin
 n:=Ord(s[i]);
if n<min then
min:=n;
end;
writeln(min);
readln;
end.

m:=Ord(s[i])-48;
n:=n*10+m;

var S:string;
m,i,n,nn,k,min:integer;
 
begin
   Writeln('vvedite posledovatelnost simvolov');
   Readln(s);
   n:=999999990;
   min:=999999990;
   k:=0;
     for i:=1 to length(s) do
        if (Ord(s[i])>=48) and (Ord(s[i])<=57) then
          begin
             m:=Ord(s[i])-48;
             k:=k+1;
              if k=1 then
                 n:=m
              else
               begin
                 nn:=n*10;
                 n:=nn+m;
               end;
          end
        else
          begin
            k:=0;
             if n<min then
               min:=n;
          end;
   Writeln(min);
   Readln;
end.