задача по строковым данным №1

var
  S, t: string;
  G: array[1..10000] of string;
  i, j, n: integer;
  b: boolean;
  
begin
  writeln('Введите строку:');
  readln(S);
  SetLength(S, Length(S) + 1); //устанавливаем длину строки на 1 символ больше
  n := Length(S); //количество символов в строке
  i := 0; //нулевой символ строки
  j := 0; //количество слов вначале равно 0
  while i < n do
  begin
    t := ''; //начальное значение слова
    b := false; //слово ещё не нашли
    inc(i); //увеличиваем индекс на 1
    while (s[i] <> ' ')and(i < n)and(s[i] <> '.') do
    begin
      t := t + s[i]; //к слову t прибавляем i-й символ
      inc(i); //увеличиваем индекс на 1
      b := true //слово нашли
    end;
    if b then //если слово нашли
    begin 
      inc(j); //то увеличиваем количество таких слов на 1
      g[j] := t //и заносим его в массив слов
    end;
  end;
  writeln;
  if odd(j) then write(' ', g[(j + 1) div 2]) //нечетное количество
  else write('Результат: ', g[j div 2], ' ', g[j div 2 + 1]) //четное количество
end.