Сколько раз в заданном символьном массиве встречается сочетание символов "хх"?

Const n=10;
Var A : array [1..n] of char;
    i, k : integer;
    c : char;
begin
For i:=1 to n do
    begin
    Read(c);
    A[i]:=c;
    end;
For i:=1 to n do Write(A[i]:3);
Writeln;
i:=1;
k:=0;
While (i+1<=n) do
      begin
      If (A[i]='x') and (A[i]=A[i+1]) then
         begin
         k:=k+1;
         i:=i+2;
         end
      else i:=i+1;
      end;
Writeln(k);
end.

uses
  crt;
 
var
  sh: array [1..60]of char;
  n, i, k: integer;
  s, sc, sl: string;
 
begin
  write('Введите длину текста: '); 
  readln(n);
  s := '';
  for i := 1 to n do 
  begin
    read(sh[i]);
    s := s + sh[i];
  end;
  readln;
  
  write('Введите сочетание символов для поиска ');
  readln(sl); 
  s := ' ' + s + ' ';
  for i := 1 to length(s) - length(sl) + 1 do
  begin
    sc := copy(s, i, length(sl));
    if sc = sl then 
      inc(k);
  end;
  if k = 0 then 
    writeln('Не встречается')
  else 
    writeln('Встречается ', k, ' раз(а)');
  readln;
end.