Дана строка, состоящая из строчных латинских букв. Определить кол-во разных символов в строке. Использовать множества. Помогите пожалуйста. Хотя бы образец решение не обязательно. Даю 100 баллов

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var Q:set of char:=[];
  foreach var c in s do Q+=[c];
  var k:=0;
  foreach var c in Q do k+=1;
  Writeln(Разных символов в строке: ,k);
end.

Пример
qwertrvynnmuimopcjdshfdfddervtetv
Разных символов в строке: 19

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.