Переменная а вводится с описания : var a: set of char; напишите функцию, которая возвращает количество символов в множестве а.(можно использовать ! )

Type
  S = set of char;

function VS(p:S):integer;
var
  i,n: integer;
begin
  for i:=0 to 255 do if chr(i) in p then n:=n+1;
  VS:=n
end;

var
  m:S;
begin
  m := ['П', 'р', 'и', 'в', 'е', 'т', ' ', '1', '2', '5', 'H', 'e', 'l', 'o'];
  Writeln('Количество символов в множестве- ',VS(m))
end.

Тестовое решение:
Количество символов в множестве- 14