Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Самое длинное слово в строке, паскаль.
Пробел — символ окончания слова.

program StrAllWord;

  {Самое длинное слово в строке паскаль}
var
  {s_Str исходная строка}
  s_Str, s_Word: string;
  i, n, i_Index: integer;
  i_Ac: integer;
  i_Max: integer;
begin
  i_Max := 0;
  i_Ac := 0; //счетчик символов
  s_Str := 'The green grass covered the whole glade';
  n := length(s_Str);
  for i := 1 to n do
  begin
    //проверка на символ пробела в строке
    if s_Str[i] = ' ' then
    begin
      if i_Max < i_Ac then
      begin
        i_Max := i_Ac;
        i_Index := i-i_Ac; //начало слова
        s_Word := copy(s_Str, i_Index, i_Max);
      end;
      i_Ac := 0;{обнуляем}
    end
    else
     i_Ac := i_Ac + 1;
  end;
  WriteLn('Исходная строка: ', s_Str);
  WriteLn('Самое длинное слово в строке: ', s_Word,' кол-во сим: ', i_Max);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Самое длинное слово в строке, паскаль.