множество объясните пожалуйста строчку k:=k+1

[Вячик]

(*Дана непустая последовательность слов из строчных русских букв;
между соседними словами запятая, за последним словом точка.
Напечатать:Все согласные буквы, которые не входят хотя бы в одно слово. *)

const sg=['б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ','ъ','ь'];
var s:string;
    m,m1:set of char;
    i,k:integer;
    c:char;
begin
writeln('Введите непустую последовательности слов из строчных русских букв');
writeln('между соседними словами запятая, за последним словом точка');
readln(s);
for i:=1 to length(s) do
if s[i] in sg then include(m,s[i]);{еси буква согласная, включаем ее в множество, можно m:=m+[s[i]]}
m1:=sg-m;{вычитаем из множества всех согласных букв множество встреченных, получаем 
множество тех, которые не входят}
writeln('rezultat:');
k:=0;
for c:='б'to 'ь' do
if chr(ord(c))in m1 then{если какая-то буква есть в множестве}
  begin
   write(chr(ord(c)),' ');{выводим ее}
   k:=k+1;
  end;
if k=0 then writeln('Takih bukv net');{если ни одной нет, сообщаем}
readln
end.

[min@y™]

объясните пожалуйста строчку k:=k+1

это количество тех самых букв,

которые не входят хотя бы в одно слово.

[Alex794]

Я так думаю, это просто замена флага, и наверно не очень правильно, т.к. по заданию считать не нужно. Лучше использовать boolean и вместо k:=k+1; писать k:=true.