Определить, на какую букву начинается третье слово в предложении

const
  count = 3;
 
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) do
    begin
      t := t + s[i]; //к слову t прибавляем i-й символ
      inc(i); //увеличиваем индекс на 1
      b := true //слово нашли
    end;
    if b then //если слово нашли
    begin 
      inc(j); //то увеличиваем количество слов на 1
      if j = count then begin write('Результат: ', t[1]); exit end
    end
  end;
  writeln;
  write('В строке меньше 3-х слов');
end.

var s:string;
i:byte;
begin
writeln('Vvedi stroku');
readln(s);
for i:=1 to length(s) do
if s[i]=' ' then writeln(s[i+1]);
end.