Составьте программу,вычеркивающую из слова Х буквы,встречающиеся при написании слова Х ровно три раза.

а если qqqqqw

она должна только 3 qqq убрать, а убирает все

Var s,c:string; i,k,j,m:integer;begin readln(s); k:=0; m:=length(s); i:=0; while i<>m do  begin;   inc(i);   for j:=i to m do    if s[i]=s[j] then inc(k);    if k=3 then     begin;    c:=s[i];    i:=0;     for j:=1 to 3 do     delete(s,pos(c,s),1);    end;   k:=0;   m:=length(s);  end; writeln(s);end.

Не учёл, что их может быть больше, извиняюсь.

Спасибо большое, я была близка к решению, но все безрезультатно... я б в жизни не додумалась бы так решить)

//Pascal ABC.NET v3.1 сборка 1172Var s,c:string; i,k,j,m:integer;begin readln(s); k:=0; m:=length(s); i:=0; while i<>m do  begin;   inc(i);   for j:=i to m do    if s[i]=s[j] then inc(k);    if k=3 then     begin;    c:=s[i];     while pos(c,s)<>0 do      delete(s,pos(c,s),1);    end;   k:=0;   m:=length(s);  end; writeln(s);end.Пример ввода:ПанамкаПример вывода:Пнмк