из строки вывести на экран те символы, которые встречаются только по 1 разу

[Andrey770]

Нужно доработать код. Уже все перепробовал.
Суть заключается в том, что в строке символов, нужно вывести на экран, те которые встречаются только по 1 разу)
код:

uses crt;
var s:string;
st:string;
x:byte;
q,i,n:integer;
k:integer;
begin
clrscr;
writeln ('vveditb text');
readln(s);
k:=1;
while k<=length(s) do begin
st:=copy(s,k,1);
q:=0;
i := 1;
repeat
x := pos(st,copy(s,i,length(s)));
if x<>0 then inc(q);
i := i + x;
until x=0;
writeln (st,'=',q);
k:=k+1;
end;
readln;
begin
n:=0;
for i:=1 to length(s) do
if q=1 then  writeln(st,'= ',q);

end;

readln;
end.

У меня 1 проблема:

в конце, когда нужно вывести те символы которые встреечаются только 1 раз , то все числа не выводит, а только 1(одно число, но столько раз, сколько символов в строке))

Помогите доработать код))

[BoozZzilla]

я честно скажу - тупо ниосилил
вот мои пять копеек
я бы взял три строчки - оригинал str, отстойник out и результирующую res
и сделал бы так:

out:=' ';
res:=' ';

for i:=1 to length(str) do
if pos(str[i],out)=0 then                                         // если в отстойнике нет нашего знака
 if pos(str[i],copy(str,i+1,Length(str)-i))<>0 then                // если знак повторяется дальше
  out:=str[i]                                                       // положить его в отстойник
 else
  res:=res+' '+str[i];                                               // иначе добавить к результату

результат будет в строчке res через пробелы, потом выведешь

[phomm]

можно красоту показать ?

var
start: char = 'a';
finish:char = 'z';
sim : array [start..finish] of integer;
s: string;
i :Integer;
begin
...
for i := 1 to length(s)
  do inc(sim[s[i]]);
for i := ord(start) to ord(finish)
  do if sim[chr(i)]= 1 
     then wirteln(chr(i));
end.

можно и через boolean массив сделать, ну тут на вкус

[BoozZzilla]

ну куда уж нам до этого
я в своём коде путаюсь, а вы тут решили мне нос утереть, я заранее сдаюсь

[phomm]

тьфу, я валенок end же нельзя использовать, ну, предположим, я написал нечто вроде finish ))

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