помогите найти ошибку, не выводится

[maxsimov20]

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.

[evg_m]

begin
vvod(S); //здесь использована ничего НЕ возвращающая  процедура
состояние глобальной переменной(s) НЕ будет изменено.
slovo(t);//соответственно здесь будет нечего разбирать
end.

вар. 1. один результат правильнее возвращать как результат функции

function vvod: string;
begin
  writeln('Введите строку:');
  readln(vvod);
end;

вар. 2. но можно и сказать что параметр ДОЛЖЕН меняться

procedure vvod (var S:string);

вар.3. а можно и просто СРАЗУ записывать в глобальную

procedure vvod(s:string);

варианты в порядке моего предпочтения.