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

Скопировать из строки в новую строку без повторяющихся символов, паскаль.
В цикле из строки s_Str1 (исходная строка) извлекаем по одному символу. Дальше проверяем функцией Pos наличие символа в строке s_Str2 (новая строка). Если этого символа нет в новой строке, он добавляется в новую строку s_Str2. Функция length(s_Str1) возвращает размер строки — ее длину.

program Del_Sim;

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

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

Результат:

Скопировать из строки в новую строку без повторяющихся символов, паскаль.