Дано слово. Удалить из него все повторяющиеся буквы, оставив их первые вхождения, т.е. В слове должны остаться только разные буквы. Программа Паскаль

Предыдущий
вопрос Следующий
вопрос

Программа на языке Паскаль:

program RemoveDuplicates;
var
str, resultStr: string;
i, j: integer;
isDuplicate: boolean;
begin
writeln('Введите слово:');
readln(str);
resultStr := str;
for i := 1 to Length(str) do
begin
isDuplicate := false;
for j := 1 to i - 1 do
begin
if str[i] = str[j] then
begin
isDuplicate := true;
Break;
end;
end;
if not isDuplicate then
resultStr := resultStr + str[i];
end;
writeln('Результат:');
writeln(resultStr);
end.

Эта программа считывает слово с клавиатуры, затем проходит по каждой букве слова и проверяет, встречалась ли она ранее. Если буква встречается впервые, она добавляется к результирующей строке. Таким образом, в результирующей строке остаются только различные буквы из исходного слова.