Определить, сколько раз в строке встречаются заданные символы

uses crt;
 
type m= set of 'А'..'я';
 
var
st1:string;
i,h,h2,h3,h4,h5:integer;
s1,s2,s3,s4,s5:m;
 
 
Begin
clrscr;
s1:=['а', 'б', 'о', 'щ'];
s2:=['а'];
s3:=['б'];
s4:=['о'];
s5:=['щ'];
textcolor(15);
write('Введите строку: ');read(st1);
 
for i:=1 to length(st1) do
begin
  if st1[i] in s1 then
  h:=h+1;
 
  if st1[i] in s2 then   
  h2:=h2+1;
 
  if st1[i] in s3 then
  h3:=h3+1;
 
  if st1[i] in s4 then
  h4:=h4+1;
 
  if st1[i] in s5 then
  h5:=h5+1;
 
   end;
    textcolor(12);
    writeln('В строке, а,б,о,щ встречаются ' ,h,' раза');
     writeln('Буква а встречатся ',h2,' раз');
      writeln('Буква б встречается ',h3,' раз');
       writeln('Буква о встречается ',h4,' раз');
         writeln('Буква щ встречается ',h5,' раз');
 
 
readkey;
End.

uses crt;
 
type m= set of 'А'..'я';
 
var
st1:string;
i,h:integer;
s1:m;
 
 
Begin
clrscr;
s1:=['а', 'б', 'о', 'щ'];
 
write('Введите строку: ');read(st1);
 
for i:=1 to length(st1) do
begin
  if st1[i] in s1 then
  h:=h+1;
    end;
 
    writeln('В строке, а,б,о,щ встречаются ' ,h,' раза');
 
 
 
readkey;
End.