function SearchingWord(S: string; var j: Integer): String;

var
  Word: string;
  k, m: Integer;

begin
  m := j;
  while S[j] <> ' ' do
    Inc(j);

  Word := '';
  for k := m to j - 1 do
    Word := Word + S[k];

  SearchingWord := Word;

end;