Удаление одинаковых символов

Задача

Оставить в строке только один экземпляр каждого встречающегося символа.

Решение

Описание переменных:

  • s – исходная строка;
  • s_new – конечная строка;
  • c – переменная для очередного символа.

Алгоритм решения задачи:

  1. Взять очередной символ из s.
  2. Если он не содержится в s_new, присоединить его к этой строке.
var
    s, s_new: string;
    c: char;
    i: byte;
 
begin
    readln(s);
    s_new := '';
 
    for i:=1 to length(s) do begin
        c := s[i];
        if pos(c, s_new) = 0 then
            s_new := s_new + c
    end;
 
    writeln(s_new);
end.

Пример выполнения:

hello world
helo wrd