30 люди дана строка, в которой нет букв. написать подпрограмму для поиска минимального из всех трехзначных чисел в строке (под числом понимается последовательность цифр отделенная пробелами или стоящая в конце или начале строки, все числа целые, не отрицательные). если в строке нет ни одного трехзначного числа, то подпрограмма должна вернуть 0. использовать заголовок: function calcmin(s: string): integer;

Function CalcMin(s: string): integer;
var min,p,n,c:integer; t:string;
begin
t:=s+' ';
min:=1000;
while t<>'' do
 begin
 while t[1]=' ' do delete(t,1,1);
 p:=pos(' ',t);
 if (p=4) then 
  begin
  val(t[1]+t[2]+t[3],n,c);
  if c=0 then if n<min then min:=n;
  end;
 delete(t,1,p);
 end;
if min=1000 then CalcMin:=0 else CalcMin:=min;
end;
begin
writeln(CalcMin('123 jkl    105 45 ncmnn  1591'));
end.

Результат:
105