Ошибка в функции

[FlipFan]

Помогите исправить ошибку в функции, которая ищет неповторяющиеся символы. Ошибка собственно в том, что если кол-во неповторяющихся символов чётное - программа работает правильно, если нечётное соотвественно не правильно

 Program L9_3;
{ Дана строка символов, состоящая из произвольного текста, слова разделены пробелами. Выведите на экран порядковый номер слова минимальной длины и количество неповторяющихся символов в этом слове.}
uses
  crt;
{процедура поиска самого короткого слова и его номера}
procedure KorSl(s:string; var sk:string; var ik:byte);
var
  k,len,n:byte;
  s1:string;
begin
  s:=s+' '; {добавим в конец строки пробел}
  while pos('  ',s)>0 do {удалим лишние пробелы, в кавычках 2 пробела}
    delete (s,pos('  ',s),1); {в кавычках 2 пробела}
    if s[1]=' ' then
    delete (s,1,1); {1 удаляем}
    sk:=''; {короткое слово, пока его нет}
    k:=255; {длина короткого слова}
    n:=0; {его номер}
    while pos(' ',s)>0 do {пока есть пробелы}
     begin
      len:=pos(' ',s)-1; {длина очередного слова}
      s1:=copy(s,1,len); {само слово}
      n:=n+1;
      if len<k then {если меньше предыдущих}
      begin
       sk:=s1; {запомним его}
       k:=len;
       ik:=n; {его номер}
      end;
      delete(s,1,pos(' ',s)); {удаляем проверенное слово, следующее первое}
     end;
 writeln('Самое короткое слово:  ',sk,' его номер=',ik);
end;
{функция подсчета количества неповторяющихся символов}
function KolSim(sk:string):byte;
var
 m:set of char; {вспомогательное множество символов}
 i,k:byte;
begin
 m:=[];k:=0; {множество пустое, символов нет}
 for i:=1 to length(sk) do {идем по слову}
  if not (sk[i] in m) then {если символа еще нет в множестве}
  begin
   k:=k+1;   {считаем}
   m:=m+[sk[i]];  {добавляем}
  end
  else   {если есть}
   if (sk[i] in m) then
   begin
    k:=k-1;   {вычитаем, ТУТ ОШИБКА}
    m:=m-[sk[i]];   {исключаем}
   end 
 KolSim:=k;   {значение функции}
end;
var
 st, sl :string;
 nm:byte;
begin
 clrscr;
 writeln('Введите строку из слов, отделеннvх пробелами:');
 readln(st);
 KorSl(st,sl,nm);
 writeln('Количество неповторяющихся симолов в нем=',KolSim(sl));
 readln
end.

[ViktorR]

А это к чему вообще?

else   {если есть}
   if (sk[i] in m) then
   begin
    k:=k-1;   {вычитаем, ТУТ ОШИБКА}
    m:=m-[sk[i]];   {исключаем}
   end

Исходно множество пустое. Добавляем только не повторяющиеся символы.
А что тогда исключаем?
Просто убрать.


Как-то так ...

[TinMan]

Сообщение от ViktorR

Добавляем только не повторяющиеся символы.

Это было бы неплохо, но вопрос - как? ))
Проблема в том, что если удалять символ из множества сразу после первого же повтора - он снова войдет при следующем повторе, и нечетные повторы не отследятся.

Я бы рекомендовал использовать два множества:

function KolSim(s:string):byte;
var
  m,n: set of char;
  i,k: integer;

begin
  m:= [];
  n:= [];
  for i:=1 to Length(s) do if s[i] in m then include(n,s[i]) else include(m,s[i]);
  m:= m-n;  // ключевой момент - удаление повторяющихся
  k:= 0;
  for i:=0 to 255 do if chr(i) in m then inc(k);
  KolSim:= k
end;

А еще можно без множеств - код короче, но работать будет сильно меденнее.

function KolSim(s:string):byte;
var
  i,k:byte;
begin
  k:= 0;
  for i:=1 to Length(s) do
    if Pos(s[i],Copy(s,1,i-1)+Copy(s,i+1,255))=0 then inc(k);
  KolSim:=k;
end;

[FlipFan]

спс большое, с 2-умя множествами не подумал(