Вопросы к словам солнце земля звезда тепло буду за то как вы мне ответите

Что такое Солнце - планета или звезда? Как называют форму Земли? (геоид) Что излучает Солнце?

1. При переходе к новому абзацу
2. После знака препинания, обязательно ставится пробел (кроме тире и дефиса)
3. Для предотвращения разрыва частей слова или сочетания слов используется неразрывный дефис
4. Чтобы не допустить отрыв одного слова от другого в конце сроки
5. Вставка символа или сочетания клавиш.
6. "Дефис" - ставится без пробелов, "тире" - ставится с пробелами до и после знака.
7. Слова в кавычках или скобках, не должны отделяться от них пробелами.
8. Проверка текста при подготовке к печати.
9. Правописание, расстановка переносов, найти и заменить и т.д
10. Параметры-меню Сервис-Правописание-Установить флажки "Автоматически проверять орфографию" и "Автоматически проверять грамматику".
11. Контекстное меню - (слово волнистой линией) - Пропустить слово, откорректировать его или занести в словарь.(ВРОДЕ ТАК)
12.  При выравнивании текста по ширине могут возникать слишком большие интервалы между словами. Чтобы это исправить, следует задать функцию автопереноса и этот процесс автоматизируется. 
13. Выделить фрагмент текста, который нужно удалить и нажать на клавиатуре клавишу "delete".
14. Копировать или вырезать.  

Если будете сдавать в тестирующей системе, то вместо string, лучше использовать массив char - работает быстрее.

var n,i,k,p,mx,mxj: integer;

   s: array[1..100000] of char;

begin

 readln(n);

 for i:=1 to n do read(s[i]);

 k:=0; p:=0;

 mx:=0; mxj:=0;

 for i:=1 to n do

 begin

   if s[i]='G' then k:=k+1

   else

   begin

     if p=1 then

     begin

       p:=0;

       if s[i-1]='G' then  

       if (k>mxj) then mxj:=k;

       k:=0;

     end

     else

     begin

       if k>0 then p:=1;

       if k>mx then mx:=k;

     end;

   end;  

 end;

 if mx>mxj then k:=mx+1

 else k:=mxj+1;

 if k=1 then k:=0;

 writeln(k);

end.