How can I print the second of the words that start with C, even though there may be several spaces between the words in the line?

Question

Pascal

Also, spaces can be at the beginning or at the end of a line.

Answer 1

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.