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

[Astorius]

увеличение на единицу

[Mad_Cat]

var sym:array[0..255,1..2] of byte;
{....}
for i:=1 to length(s) do begin
inc(sym[ord(s[i]),1]);sym[ord(s[i]),2]:=i;
end;
for i:=0 to 255 do
if sym[i,1]=1 then writeln(chr(i),'===>',sym[i,2]);

[Акоб]

Реально красивое решение.