Вхождение символов - PascalABC.NET

Формулировка задачи:

В коде представленном ниже необходимо найти в строке символы "гор". По одному символу он подсчитывает. Как сдлеать что бы можно было найти группу символов "гор"?

Program writefile;
uses crt;
var t,s:string;
a:array[1..255] of string;
ch:char;
f:text;
i,j,k,kb,ksl:integer;
mn:set of char;
 
begin
assign(f,'Результат.txt');
rewrite(f);
 
begin
clrscr;
mn:=[',','.',' ','!',';',':'];
repeat
writeln('Введите 12 символов:');
readln(t);
if length(t)>=12 then
 
begin
t:=t+'.';
kb:=0;ksl:=0;
for i:=1 to length(t) do
if not(t[i] in mn) then inc(kb)
else
if kb>0 then
 
begin
inc(ksl);
for j:=i-kb to i-1 do
 
begin
s:=s+t[j];
if t[j]='гор' then k:=k+1;
end;
 
write(ksl,': ',s,'  - ',kb,' символов, из них "гор" - ',k);
writeln;
writeln(f,s,'  - ',kb,' символов, из них "гор" - ',k);
s:='';
k:=0;
kb:=0;
end;
end
else
writeln('В вашей строке меньше 12 символов. Пожалуйста, повторите ввод:');
until length(t)>=12;
readkey;
end;
close(f);
end.

Решение задачи: «Вхождение символов»

Листинг программы

begin
  var Ok : Boolean;
  var s : String;
  repeat
    s := ReadLnString('Введите строку (не менее 12 символов) :');
    Ok := s.Length > 11;
    if Not Ok then WriteLn('Вы ввели менее 12 символов!');
  until Ok;
  
  WriteLn(s + ' - ' + s.where(c->Char.IsLetterOrDigit(c)).Count +
    ' символов, из них "гор" - ' + (s.Length - s.Replace('гор', 'рр').Length));
end.

Объяснение кода листинга программы

Объявлены две переменные: — Ok — булевая переменная; — s — строковая переменная.
Задана повторяющаяся операция, которая будет выполняться до тех пор, пока условие истинно: — s присваивается значение, введенное пользователем; — ОК проверяется на истинность условия s.Length > 11; — если условие не выполняется, выводится сообщение «Вы ввели менее 12 символов!».
После повторения операции, выводится сообщение: — s + ' — ' + s.where(c->Char.IsLetterOrDigit(c)).Count + — ' символов, из них гор — ' + (s.Length — s.Replace('гор', 'рр').Length).