Из данной символьной строчки избрать те знаки, которые встречаются в ней

program m2;
uses Crt;
var s:String;
i,j,n,k:Integer;
f:Boolean;
begin
ClrScr;
Writeln(Введите строку:);
Readln(s);
n:=Length(s);
for i:=1 to n do
begin
f:=True;
for j:=1 to n do
if (ilt;gt;j) and (s[i]=s[j]) then f:=False;
if f and (k=0) then Writeln(Знаки,которые встречаются в строке один раз:);
if f then
begin
Write(s[i], );
inc(k);
end;
end;
if k=0 then Writeln(В строке нет знаков которые встречаются всего один раз.);
Readln;
end.