Строки.Удаление повтор символовю - Pascal

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

Народ помогите решить 2 задачи пожалуйста. 1)Строка состоит из натуральных чисел, разделенных пробелом, и диапазонов чисел (начальное число-тире-конечное число). Удалить из строки все числа, входящие в эти диапазоны. Оставшиеся числа вывести на экран по возрастанию (диапазоны не выводить). 2)Удалить из строки все повторения символов. Рабочие строки не использовать. Буду очень благодарен!

Решение задачи: «Строки.Удаление повтор символовю»

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

uses crt;
var s:string;
    c:char;
    i,j:byte;
begin
clrscr;
writeln('Введите строку, содержащую повторяющиеся символы:');
readln(s);
i:=1;
while i<length(s) do
 begin
  c:=s[i];
  for j:=length(s) downto i+1 do
  if s[j]=c then delete(s,j,1);
  i:=i+1;
 end;
write(s);
readln
end.

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

В начале кода используется директива uses crt;, которая позволяет использовать функции и структуры из встроенной библиотеки CRT (Console Read/Write).
Переменная s объявлена как строка (string).
Переменная c объявлена как символ (char).
Переменные i и j объявлены как байты (byte).
С помощью функции clrscr очищается консольный экран.
Выводится сообщение для ввода строки, содержащей повторяющиеся символы.
Считывается введенная строка с помощью функции readln.
Переменная i инициализируется значением 1.
Запускается цикл while i<length(s) - пока значение переменной i меньше длины строки s.
Внутри цикла считывается символ из строки s и сохраняется в переменной c.
Запускается цикл for j:=length(s) downto i+1 do - от максимального значения переменной j до значения i плюс 1.
Внутри цикла проверяется, совпадает ли символ из строки s с символом, который был прочитан в текущем цикле. Если да, то с помощью функции delete удаляется символ из строки s в позиции j.
Переменная i инкрементируется на 1.
Цикл while i<length(s) повторяется, пока значение переменной i меньше длины строки s.
Выводится полученная строка s.
Запускается цикл readln, который позволяет пользователю ввести новую строку.
Программа завершается.