Удалить дважды записанные слова - Pascal ABC

Одна из ошибок, которую часто допускают неопытные наборщики - дважды записанное слово. Найти такие ошибки в введенном самому тексте и исправить их

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

var a: array [1..100] of string; s: string; i, n: integer;

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

Создается массив a размером 100 для хранения строк.
Инициализируется пустая строка s для обработки текущей строки.
Инициализируются переменные i и n для контроля цикла.
Запускается цикл, который будет выполняться до тех пор, пока все строки не будут обработаны.
В каждой итерации цикла текущая строка из массива a добавляется в строку s.
Если длина строки s превышает 0, то выполняется следующий код.
Строка s сравнивается со строкой, которая идет перед ней в массиве a.
Если строки совпадают, то текущая строка удаляется из массива a.
Переменная n увеличивается на единицу.
Если переменная n не равна нулю, то предыдущая строка добавляется в строку s.
Переменная i увеличивается на единицу.
Цикл продолжается до тех пор, пока все строки не будут обработаны.