В группах символов, состоящих только из цифр, поменять первый и последний элемент местами - Pascal ABC

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

Помогите,пожалуйста

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

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

uses crt;
const cf=['0'..'9'];
var s:string;
    i,j,k1,k2,n:byte;
    c:char;
begin
writeln('Введите строку, содержащую группы цифр');
read(s);
n:=length(s);
i:=1;
while i<=n do
if (s[i] in cf)and((i=1)or not(s[i-1] in cf)) then
 begin
  k1:=i;
  k2:=i;
  while s[k2] in cf do inc(k2);
  c:=s[k1];
  s[k1]:=s[k2-1];
  s[k2-1]:=c;
  i:=k2;
 end
else inc(i);
write(s)
end.

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

В начале кода подключается библиотека crt, которая предоставляет функции для работы с памятью.
Затем определяется константа cf, которая содержит все цифры от 0 до 9.
Переменная s инициализируется строкой, которую пользователь должен ввести.
Переменные i, j, k1, k2 и n инициализируются байтами.
Затем начинается цикл while, который будет выполняться до тех пор, пока длина строки s не станет равной 0.
Внутри цикла проверяется, является ли текущий символ в строке s цифрой. Если это так, то проверяется, является ли предыдущий символ в строке цифрой. Если нет, то это означает, что текущий символ - первая цифра в группе, а предыдущий символ - последняя цифра в группе.
Если условие выполняется, то переменные k1 и k2 инициализируются значениями i и i-1 соответственно.
Затем переменная c инициализируется значением s[k1], а s[k1] заменяется на s[k2-1].
После этого значение i устанавливается равным k2.
Если условие не выполняется, то значение i увеличивается на 1.
После завершения цикла while выводится обновленная строка s.