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

PascalВыделить код 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s, s1:string; c:char; i, j, k:byte; begin writeln ('Введите строку') ; read (s) ; s1:=s; {сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i