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

program Project1;
const
  alfabet = ['a','b','c','d','e','f','g','h','i','k','j','l','m','n','o','p','r','u','q','s','t','v','w','x','y','z','A','B','C','D','E','F','G','H','I','K','J','L','M','N','O','P','R','U','Q','S','T','V','W','X','Y','Z' ];
var
  strn: string; // Переменная для хранения строки.
  i: integer;  // Переменная для организации цикла.
  sim: integer; // Переменная для подсчета количества букв в строке.
  wrd: integer; // Переменная для подсчета количества слов в строке.
  flagletter: boolean; // Логическая переменная для корректного определения слов в строке.
begin
  writeln('Введите строку: ');
  Readln(strn);
  strn:= strn + ' '; // Добавление пробела в конец строки.
  sim:= 0;      //  Установка счетчиков в нулевое состояние.
  wrd:= 0;
  flagletter:= false;
  for i:= 1 to Length(strn) do // Подсчет количества слов в строке и запись в массив.
    begin
      if strn[i] in alfabet then // Проверка, является ли сивол буквой.
        begin
          inc(sim);
          flagletter:= true;  // Установка флага определения начала слова.
        end;
         if (strn[i] = ' ') and flagletter then // Проверка на окончание слова и логической переменной.
           begin
             inc(wrd);
             flagletter:= false;   // Сброс флага определения слова (слово найдено).
           end;
        end;
  writeln('The number of letters in the string: ',sim);
  writeln('Number of words per string: ',wrd);
  readln;
end.