Написать программу, чтобы при нажатии клавиши 2 удалялся каждый второй символ строки - Pascal ABC

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

Тема: строки. Написать программу, чтобы при нажатии клавиши 2 удалялся каждый второй символ строки, при нажатии клавиши 3 - каждый третий, при нажатии 4 - каждый четвертый.

Решение задачи: «Написать программу, чтобы при нажатии клавиши 2 удалялся каждый второй символ строки»

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

uses crt;
var s:string;
    i,k:byte;
begin
writeln('Введите строку');
readln(s);
repeat
writeln('Нажмите клавиши 2,3 или 4');
readln(k);
until k in [2..4];
for i:=length(s) downto 1 do
if i mod k=0 then delete(s,i,1);
write(s)
end.

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

Программа начинается с объявления переменных s и k типа byte. Переменная s используется для хранения введенной пользователем строки, а переменная k используется для чтения ввода пользователя.
Программа выводит сообщение Введите строку и считывает ввод пользователя с помощью функции readln().
Затем программа повторяется до тех пор, пока пользователь не нажмет одну из трех клавиш: 2, 3 или 4. Это делается с помощью цикла repeat, который продолжается до тех пор, пока значение переменной k не будет находиться в диапазоне от 2 до 4.
Внутри цикла for происходит цикл, который проходит по каждому символу строки s, начиная с индекса length(s) и двигаясь вниз до индекса 1.
Внутри цикла проверяется, делится ли текущий индекс на k без остатка. Если это так, то символ в этом индексе удаляется из строки с помощью функции delete().
После завершения внутреннего цикла программа выводит обновленную строку с помощью функции write().