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

Формулировка задачи:

не как не могу сделать задачу суть такая дана строка симболов и надо найти наименьшее число

Добавлено через 40 минут 36 секунд

вот текст программы не знаю почему не работает

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.

Решение задачи: «Найти наименьшее число в строке»

Листинг программы

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

Объяснение кода листинга программы

В данном коде происходит следующее:

В каждой итерации цикла переменная m принимает значение, равное номеру символа в строке s (отмеченное знаком [), уменьшенному на 48 (значение ASCII-кода цифры 0).
Затем значение переменной m добавляется к переменной n с множителем 10 (поскольку каждая следующая цифра в числе в строке s умножается на 10).
Таким образом, после завершения цикла переменная n будет содержать наименьшее число в строке s.