ммм, можно по другому:
var
n,i:integer;
sun:string;
begin
n:=pos('0'..'9','вован 345 молока');
if n>0 then
for i:=n to length('вован 345 молока') do
if 'вован 345 молока'[i]<>' ' then sun:=sun+'вован 345 молока'[i] else break;
n:=StrToInt{Для делфи или val для паскаля}(sun);
end;
|