var
i, n, ch, k1, k2, k3: Integer; //Объявляем переменные
begin // Начало блока
Writeln('Введите кол-во чисел: '); Readln(n); //В переменную N записываем информацию о количестве чисел
Writeln('Введите числа: ');
for i := 1 to n do // Начинаем цикл for от 1 до N
begin //Начало цикла
Readln(ch); //Записываем в переменную CH информацию о числе введеного с клавиатуры
{Inc - счетчик
т.е если условие истинно с
мы в переменную k1 записываем +1}
if ch = 0 Then Inc(k1);
if ch > 0 Then Inc(k2);
if ch < 0 Then Inc(k3);
end; //Конец цикла
{Выводим информацию о количестве чисел которые соответствуют условию}
Writeln('Число нулей: ', k1);
Writeln('Число положительных: ', k2);
Writeln('Число отрицательных: ', k3);
end. // Конец
Если будете сдавать в тестирующей системе, то вместо 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.