Напечатать слова в которые входят цифры

[profi]

Условие: напечатайте слова в которые входят цифры. Вот мой наработанный программный код:

Program chisla;
var
s,s1,res:string;
n,m,k,i:integer;
begin
readln (s);
n:=length(s);
while (s[i] <> ' ') and (i <= n) do
begin
s1:=copy(s,1,pos(' ',s)-1);
m:=length(s1);
for i:=1 to m do
if (ord(s1[i]) >= 48) and (ord(s1[i]) <= 57) then
res:=res+s1+' ';
delete(s,1,pos(' ',s)-1);
end;
write (res);
end.

Программа работает но выдает неправильный результат. Т.е. когда набираеш слова через пробел, то она печатает только первое слово в котором есть цифры и на этом заканчивает работу. Подправьте программный код что бы программа проверяла не только первое слово на цифры, но и последующие слова на цифры.

[_Dmitry]

Program chisla;
var
  s,res: string;
  n,i :integer;
  cod: boolean;
begin
  readln(s);
  repeat
    n:=pos(#32,s)-1;
    if n = -1 then n:=length(s);
    cod:=false;
    for i:=1 to n do
      if s[i] in ['0'..'9'] then cod:=true;
    if cod then res:=res+copy(s,1,n)+#32;
    delete(s,1,n+1);
  until length(s) = 0;
  writeln(res);
  readln;
end.

[P1RoG]

Можно спросить, что значит #32?)
А это символ , тока я пока не нашел какой т_Т

Апдейт: вопрос отпал, до 31 символа включительно идут символы управляющие которые не имеют графического оформления )

[notHaker]

Сообщение от P1RoG

Можно спросить, что значит #32?)
А это символ , тока я пока не нашел какой т_Т

Апдейт: вопрос отпал, до 31 символа включительно идут символы управляющие которые не имеют графического оформления )

#32 - пробел