Определить, сколько раз во введенной строке с 5 по 15 позицию встречается символ ‘*’ - Free Pascal

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

Определить, сколько раз во введенной строке с 5 по 15 позицию встречается символ ‘*’.

Решение задачи: «Определить, сколько раз во введенной строке с 5 по 15 позицию встречается символ ‘*’»

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

var
  s:string;
  c,i:byte;
begin
  write('Enter string:');
  readln(s);
  if length(s)<15 then writeln('Entered string is too short...') else
    begin
      for i:=5 to 15 do c:=c+ord(s[i]='*');
      writeln('A symbol "*" is found in the string from 5 to 15 position ',c,' times');
    end;
end.

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

В первой строке объявляется переменная s типа string для хранения введенной строки.
Во второй строке объявляются две переменные c и i типа byte. Переменная c будет использоваться для подсчета количества символов * в строке, а переменная i будет использоваться для цикла по символам строки.
В третьей строке пользователю предлагается ввести строку.
В четвертой строке введенная строка сохраняется в переменной s.
В пятой строке выполняется проверка длины строки. Если длина строки меньше 15 символов, то выводится сообщение об ошибке.
В шестой строке начинается блок if, который выполняется, если длина строки больше или равна 15 символам.
В седьмой строке начинается цикл for, который выполняется от 5 до 15 позиции включительно в строке s.
В восьмой строке к переменной c добавляется значение символа * на текущей позиции строки, преобразованное в byte с помощью функции ord.
В девятой строке после цикла выводится сообщение, которое содержит количество найденных символов * и название переменной c.
В десятой строке завершается блок if, который выводит сообщение об ошибке, если длина строки меньше 15 символов.
В одиннадцатой строке выводится сообщение, если длина строки больше или равна 15 символам.
В двенадцатой строке завершается программа.