Определить сколько слов в заданной строке начинаются на букву "а". pascal

program Project1;  uses crt; const   //Разделители слов.   D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13]; var   S : String;   i, Cnt, Len : Integer; begin   repeat     Writeln('Задайте строку:');     Readln(S);       Len := Length(S);     Cnt := 0;     for i := 1 to Len do begin       //Пропускаем разделители.       if S[i] in D then Continue;       //Отслеживаем начало слова.       if (i = 1) or (S[i - 1] in D) then begin         if S[i] in ['a', 'A'] then Cnt := Cnt + 1;       end;     end;     Writeln('В заданной строке найдено ', Cnt, ' слов,');     Readln(S);   until S <> ''; end.