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

PascalВыделить код1234567891011121314151617181920212223242526uses crt;var s,s1:string;c:char;i,j,k:byte;beginwriteln('Введите строку');read(s);s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать}i:=1;while i<length(s1) dobeginc:=s1[i];{запомним символ}k:=0;for j:=length(s1) downto i+1 do{с конца строки ищем такие же}if s1[j]=c then{если есть}begink:=1;{фиксируем}delete(s1,j,1);{удаляем}end;if k=1 then delete(s1,i,1){если не один, удаляем}else i:=i+1;{иначе проверяем следующий}end;writeln('Символы по 1 разу');if s1='' then write('Таких символов нет')else write(s1);end.