Помогите решить задачу на МНОЖЕСТВА

[kiko]

Строка содержащая произвольный текст, состоит не более чем из 200 символов. Написать какие буквы встречаются в этом тексте только один раз. Ответ должен проводиться в граматически правильной форме.

помогите пожалуйста

[lexus_ilia]

Держи...

Program xa;
var
 s:string[200];
 ch:char;
 m:byte;
 i,n,b,j:integer;
 p:boolean;
begin
 Writeln('BBedute CTpoKy (He boLee 200-oT cuMBoLoB)');
 readln(s);
 if length(s) mod 2<>0 then
  n:=length(s) div 2+1
 else
  n:=length(s) div 2;
 b:=length(s);
 for i:=1 to n do
 begin
  p:=true;
  for j:=i+1 to b do
   if s[i]=s[j] then
    p:=false;
  if p then
  begin
   Write(s[i], ' ');
   m:=1
  end
 end;
 if m=1 then
  Write('- BcTpe4aI-OTc9 TolbKo 1-UH pa3')
 else
  Write('Hety Takux byKB');
 readln
end.

вот эта фигня

m:=1

и

if m=1 then

из-за того что я хотел, что-бы при вводе строки 'aaa' написало что нету таких букв...

[kiko]

спасибо