Вычеркните из строки X те символы, которые используются в строке X дважды - Pascal ABC

Формулировка задачи:

Составить программу обработки строковой информации с выводом на экран исходного и результирующего текстов. Исходный текст выбирается самостоятельно.Вычеркните из строки X те символы, которые используются в строке X дважды.

Решение задачи: «Вычеркните из строки X те символы, которые используются в строке X дважды»

Листинг программы

uses crt;
var x:string;
    i,j,k,i1,i2:byte;
    c:char;
begin
writeln('Введите строку');
readln(x);
for i:=1 to length(x)-1 do
 begin
  c:=x[i];
  k:=1;
  for j:=i+1 to length(x) do
  if x[j]=c then k:=k+1;
  if k=2 then
  for j:=length(x)downto i do
  if x[j]=c then delete(x,j,1);
 end;
write(x)
end.

Объяснение кода листинга программы

В начале кода используется директива uses crt;, которая позволяет использовать функции и структуры из встроенной библиотеки CRT (Console Read/Write).
Переменная x объявлена как строка (string).
Переменные i, j, k, i1, i2 объявлены как байты (byte).
Переменная c объявлена как символ (char).
В цикле for считывается введенная пользователем строка.
Внутренний цикл for используется для подсчета количества повторений каждого символа в строке.
Если количество повторений равно 2, то внешний цикл for используется для удаления повторяющихся символов из строки.
По завершении цикла выводится измененная строка.