Как создать программу подсчитывающую колличество знаков препинания в тексте - Free Pascal

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

Нужно создать данную программу.Я студент первого курса,а в поскале плохо все понимаю.Попрошу,если не сложно,расписать программу с пояснениями.Заранее спасибо.

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

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

const punctuation_marks=['.', ',', ';', ':', '?', '!']; { Знаки препинания }
var
    input_text: string; { Входной текст }
    i: integer; { параметр цикла }
    punctuation_marks_count: integer; { Счётчик: количество знаков препинания в тексте }
begin
    writeln('Введите текст, затем Enter:');
 
    { Пользователь вводит значение в переменную }
    readln(input_text);
 
    { Изначально счётчик равен нулю. Пока ещё не посчитали ни одного знака }
    punctuation_marks_count:=0;
 
    { i - номер символа в строке, от 1 до длины текста }
    for i:=1 to length(input_text) do
        { input_text[i] - сам i-й символ строки }
        { если это символ присутствует среди массива символов знаков препинания... }
        if input_text[i] in punctuation_marks
            { ...то увеличиваем счётчик на единицу }
            then punctuation_marks_count:=punctuation_marks_count + 1;
 
    { выводим сообщение }
    writeln('Количество знаков препинания в тексте: ', punctuation_marks_count, '. Нажмите Enter для выхода из программы.');
 
    { ожидаем нажатия Enter }
    readln;
end.

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

В начале кода объявляются две константы: punctuation_marks (массив знаков препинания) и input_text (входной текст).
Затем создаются две переменные: i (для цикла) и punctuation_marks_count (счётчик знаков препинания).
Выводится сообщение Введите текст, затем Enter: и пользователь вводит текст.
Изначально счётчик punctuation_marks_count устанавливается равным нулю.
Запускается цикл, который проходит по каждому символу входного текста.
Если текущий символ присутствует в массиве punctuation_marks, то счётчик punctuation_marks_count увеличивается на единицу.
По завершении цикла выводится сообщение Количество знаков препинания в тексте: и значение счётчика punctuation_marks_count.
Запускается цикл ожидания нажатия Enter для выхода из программы.