строки в паскаль

[irina belka]

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

program  CharList;
  var  i,a,k : integer;
   InStr,c : string;
  begin
  writeln('введи строку:'); readln(c);
   InStr := '';
   for i := 1 to length(c) do
   begin
    k := 0;
    for a := 1 to length(c) do
    begin
     if c[i] = c[a] then  k:=k + 1;
    end;
    if k = 1 then
   InStr := InStr +'  '+c[i];
 end;
   writeln('обработанная строка:');
   writeln(Instr);  readln;
  end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[dosha]

var
  i:Integer;
  InStr,s:string;
begin
Read(s);
InStr:='';
for i:=1 to Length(s) do
begin
if Pos(s[i],InStr)=0 then
InStr:=InStr+s[i];
end;
Writeln(InStr);
end.