Составьте программу, определяющую длину последнего слова в предложении

var
  S, t: string;
  G: array[1..10000] of string;
  i, j, n, count: 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
      count := Length(t); //находим длину слова
    end
  end;
  writeln;
  write('Длина последнего слова: ', count);
end.

program Project1_3;
 
var
text:string;
n,n1:integer;
begin
write('введите предложение -> ');
readln(text);
text:=' '+text;
n:=length(text);
n1:=0;
while text[ n ]<>' ' do
begin
n1:=n1+1;
n:=n-1
end;
write('длина последнего слово в предложении -> ',n1);
readln
end.