Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Удалить из строки повторяющиеся символы паскаль.
Алгоритм: создаем новую строку, в ней будем хранить неповторяющиеся символы. Затем сравниваем символы в исходной строке с новой строкой. Если в новой строке нет символа, добавляем в новую строку и продолжаем цикл. Если в новой строке присутствует символ, то в исходной строке удаляем этот символ.

program Del_Sim1;

  {удалить из строки повторяющиеся символы паскаль}
var
  {s_Str1 исходная строка, s_Str2 новая строка}
  s_Str1, s_Str2: string;
  i, p: integer;
begin
  i := 1;
  s_Str1 := 'Hello, world!.';
  WriteLn('Исходная строка: ', s_Str1);
  while i <= length(s_Str1) do
  begin
    //проверка на поиск символа в строке
    if (pos(s_Str1[i], s_Str2) = 0) then
    begin
      s_Str2 := s_Str2 + s_Str1[i]; // Добавляем в новую строку
      Inc(i);
    end
    else
      Delete(s_Str1, i, 1);
  end;
  WriteLn('Исходная строка, удаленные повторяющиеся символы : ', s_Str1);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Удалить из строки повторяющиеся символы паскаль.