Составить программу подсчета в заданном тексте количества вхождений заданного сочетания символов.

program p43;
  uses crt;
  var a, b: string;
      i,n:integer;
begin
  clrscr;
  write('Исходный текст a=');readln(a);
  write(' набор символов b=,);readln(b);
  for i:=1 to length(a)-length(b)+1 do
    begin
      if copy (a,i,length(b))=b then
      n:=n+1;
    end;
  writeln ('n=',n);
  readln;
end.