Как напечатать второе из слов, начинающихся на С, при том что в строке может быть несколько пробелов между словами?

Question

[skesS]

Также пробелы могут быть в начале или в конце строки.

Answer 1

[Stockholm Syndrome]

program abc; 
var 
  str: string; 
  i: Integer;
begin 
  ReadLn(str);
  i := 0;
  
  foreach w: string in Regex.Split(str, ' +') do begin 
    if w[1] = 'С' then begin 
      Inc(i);
      if i = 2 then begin
        WriteLn(w);
        break;
      end;
    end;
  end;
end.