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

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

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

• 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