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

 Const
 Symb = ['.',',','-',':',';','"'];// тут добавить все нужные символы
  Var
   Index:longint;
   Ch:char;
   Begin
   Assign(input, 'filename.txt'); //введи нужное имя файла
   Reset(input);
   While not  eof do //если не из файла читать, то будет бесконечно
   Begin
     Read (ch);
     If (ch in symb) then inc (index);//если знак препинания, то увеличить количество на 1
   End;
   Writeln (index);
End.

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.