Выяснить, имеется ли среди символов, пара соседствующих одинаковых символов - Turbo Pascal

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

Даны натуральное число n, символы S1,...,Sn. Выяснить, имеется ли среди символов S1,...,Sn пара соседствующих одинаковых символов? Сколько таких пар в последовательности?

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

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

const
  n = 20;
var
  Arr: String[n];
  i,Double: integer;
begin
 repeat
  Write('Введите ',n:2,' символов: '); ReadLn(Arr);
 until Length(Arr) >= n;
 WriteLn;
 Double := 0;
 for i := 2 to n
 do if Arr[i-1]=Arr[i]
    then Inc(Double);
 WriteLn('Найдено ', Double, ' повторов');
 ReadLn;
end.

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

В начале объявляются переменные: n (равное 20), Arr (массив строк длиной n) и i, Double (два целых числа).
Затем идет цикл repeat-until. В каждой итерации пользователю предлагается ввести n символов. Число символов считывается с помощью функции ReadLn(Arr).
Если длина введенного массива не меньше n, то цикл продолжается. В противном случае выводится сообщение об успешном выполнении.
Переменная Double инициализируется значением 0.
Затем идет цикл for, который выполняется от 2 до n.
В каждой итерации цикла проверяется, равны ли символы Arr[i-1] и Arr[i]. Если это так, то значение переменной Double увеличивается на 1.
После завершения цикла выводится сообщение с количеством найденных повторений.
Вызывается функция ReadLn для завершения ввода.