В строке удалить символ двоеточие и подсчитать количество удаленных символов - Pascal ABC

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

помогите написать программу на pascal ABC а) В строке удалить символ двоеточие и подсчитать количество удаленных символов. б) Выбрав любое базовое слово по своему усмотрению, составить программ, которая из базового слова получает 4 новых слов, используя операцию сцепления и команду Copy.

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

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

uses crt;
var a:string;
    kol:integer;
begin
writeln('Введите строку');
readln(a);
while pos(':',a) <> 0 do
       begin delete(a,pos(':',a),1); Inc(kol); end;
writeln('Строка: ',a);
writeln('Количество удаленных символов ',kol);
end.

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

Строка вводится с помощью функции readln().
Затем используется цикл while, который продолжается до тех пор, пока позиция двоеточия в строке не станет равной нулю.
Внутри цикла функция delete() используется для удаления символов, начиная с позиции двоеточия и до конца строки (это обеспечивает предыдущий код).
Функция Inc() увеличивается значение переменной kol на единицу после каждого удаленного символа.
После завершения цикла выводится исходная строка и значение переменной kol.