Даны натуральное число n, символы s1,...,sn. Выяснить,верно ли,что в последовательности s1,...,sn имеются пять идущих подряд букв е

Var
  S: array[1..1000] of Char;
  Ts, N, Ko: integer;
  Z: string;
Begin
  Z:='Нет';
  Ko:=0;
  Read(n);
  For Ts:=1 to n+1 do 
  Begin
    readln(S[Ts]);
  End;
  For Ts:=1 to n do 
  Begin
    If (S[Ts] = S[Ts+1]) And (S[Ts]='e') Then Ko:=Ko+1
    Else Ko:=0;
    If Ko=4 Then 
    Begin
      Z:='Да';
    End;
  End; 
  Write(Z);
  Readln;
End.

Const
  N=5;

Var
  S: array[1..n] of Char;

var
 n: byte;
 s: string;
 c: char;
begin
 write('n (max 255)= ');
 readln(n);
 while n>0 do
  begin
   write('s',length(s)+1,': ');
   readln(c);
   s:=s+c;
   dec(n);
  end;
 if pos('eeeee',s)>0 then writeln('Пять подряд идущих букв "е" есть.')
 else writeln('Пяти подряд идущих букв "е" нет.');
 readln;
end.

var
  c: char;
  n, k: integer;
begin
  Write('Длина последовательности: '); ReadLn(n);
  Write('Последовательность: ');
  k:=0;
  for n:=n downto 1 do begin
    Read(c);
    if c='e' then begin
      inc(k);
      if k=5 then begin
        WriteLn('Есть.');
        Exit;
      end;
    end else k:=0;
  end;
  WriteLn('Нет.');
end.

Var S : String;
Begin
  Readln(S);
  Writeln(Pos('eeeee',S)<>0);
End.

var
  c: char;
  n, k: integer;
  found: boolean;
begin
  Write('Длина последовательности: '); ReadLn(n);
  Write('Последовательность: ');
  k:=0; found:=false;
  for n:=n downto 1 do begin
    Read(c);
    if not found then
      if c='e' then begin
        inc(k);
        if k=5 then found:=true;
      end else k:=0;
  end;
  if found the WriteLn('Есть.') else WriteLn('Нет.');
end.