Дана строка. Вывести на экран те слова строки, где встречается хотя бы одна цифра

var
  i, n: integer;
  S, t: string;
  bln: boolean;
  procedure vvod (S:string);
begin
  writeln('Введите строку:');
  readln(S);
end;
procedure vivod (t:string);
begin
    if bln then write(t, ' '); //если нашли цыфру, то выводим слово
    inc(i);
    writeln(t, ' ');
end;
function slovo (t:string):string;
begin
  S := S + ' ';
  n := Length(S); //количество символов в строке (длина строки)
  i := 1; //начальный номер символа
  while i < n do begin
    t := '';
    bln := false; //нет цыфры в слове (по умолчанию)
    while (s[i] <> ' ')and(i < n) do begin
      t := t + s[i];
      if s[i] in ['0'..'9'] then bln := true; //нашли цыфру в слове
      inc(i);
      vivod(t); 
    end;
end;
end;
begin
vvod(S);
slovo(t);
end.