Составте программу подсчета общего количества слогов "ба", "Ба" во введенной с клавиатуры строке s/

Pascal неприятен тем, что не дает сравнивать без учета регистра(переводить все в верхний/нижний регистр тоже не вариант), поэтому так: program test; uses crt; const  st1='ba';  st2='Ba'; var   str:string;  i,n:integer; begin  clrscr;  write('Input string: ');readln(str);  for i:=1 to length(str) do   if (st1=copy(str,i,2)) or (st2=copy(str,i,2)) then    n:=n+1;  writeln(n); end.