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

program Project1;
var
  str1: string; //  Переменная для хранения исходной строки.
  str2: string; //  переменная для хранения вычисляемой строки.
  str3: string; // Промежуточная переменная для операций над строками.
  i,j,k,g: integer;   // Вспомогательные переменные для организации циклов.
  ind: integer;       // Вспомогательная переменная для хранения индекса повторяящегося символа.
begin
  str3:='';
  Writeln('Введите строку:');
  Readln(str1);
  str2:= str1;   // Копирование информации из исходной строки в конечную.
  for i:= 1 to length(str1) do   // Цикл для перебора всех символов в строке.
   begin
   k:= 0;
   for j:= i to length(str1) do
     begin
        if (copy(str1,j,1) = copy(str1,i,1)) then  // Условие сравнения символов.
            inc(k);   // Подсчет случаев совпадения.
        if k > 1 then   // Если случаев совпадения больше одного, то ...
          begin
            str3:= copy(str1,i,1); // ... распознается что это за символ
            for g:= 1 to length(str2) do   // ... для всех символов в конечной строке
              begin
                ind:= pos(str3,str2);     // ... узнается индекс найденного символа
                delete(str2,ind,1);        // ... символ удаляется согласно найденному индексу.
              end;
          end;
     end;
 
   end;
  Writeln;
  Writeln('Строка без повторяющихся символов:');
  Writeln(Str2);  // Вычисленная строка выводится на экран.
  Readln;
end.

program Project1;
var
  str1: string; //  Переменная для хранения исходной строки.
  str2: string; //  переменная для хранения вычисляемой строки.
  str3: string; // Промежуточная переменная для операций над строками.
  i,j,k,g: integer;   // Вспомогательные переменные для организации циклов.
  ind: integer;       // Вспомогательная переменная для хранения индекса повторяющегося символа.
  reg: boolean;      // Переменная для регистрации события, повторяющихся символов.
begin
  str3:='';
  reg:= false;
  Writeln('Введите строку:');
  Readln(str1);
  str2:= str1;   // Копирование информации из исходной строки в конечную.
  for i:= 1 to length(str1) do   // Цикл для перебора всех символов в строке.
   begin
   k:= 0;
   for j:= i to length(str1) do
     begin
        if (copy(str1,j,1) = copy(str1,i,1)) then  // Условие сравнения символов.
            inc(k);   // Подсчет случаев совпадения.
        if k > 1 then   // Если случаев совпадения больше одного, то ...
          begin
            str3:= copy(str1,i,1); // ... распознается что это за символ
            for g:= 1 to length(str2) do   // ... для всех символов в конечной строке
              begin
                ind:= pos(str3,str2);     // ... узнается индекс найденного символа
                delete(str2,ind,1);        // ... символ удаляется согласно найденному индексу.
              end;
            reg:= true;
          end;
     end;
 
   end;
  Writeln;
  if reg then  // Проверка на событие повторяющихся символов.
    begin
     Writeln('Строка без повторяющихся символов:');
     Writeln(Str2);  // Вычисленная строка выводится на экран.
    end
  else
     Writeln('Повторяющихся символов в данной строке нет.');
  Readln;
end.