паскаль,множество

[Dean]

привет, ребят! не могли бы вы решить задачку одну?
дана строка символов. Определить сколько раз в строке встречаются символы 'а', 'б', 'о', 'щ', используя множественный тип.
был бы очень признателен.

[Летучий_СкилетиК]

uses crt;
var
    a : string;
    m : set of char;
    i, k : integer;
begin
read(a);
m:=['а','б','о','щ'];
for i := 1 to length(a) do
if a [i] in m then inc(k);
write(k);
end.