Определить сколько слов в заданной строке начинаются на букву "а". 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.

//вот так компилируется без ошибок uses crt; var k: integer; n: integer; begin clrscr; k: =0; writeln('тест по теме "циклы"'); writeln('вопрос 1. алгоритм называют циклическим, > '); writeln('если в нем: '); writeln('1)реализуется многократно повторяющаяся'); writeln(' последовательность действий'); writeln('2)используются повторяющиеся праметры'); writeln('3)много раз используются одни и те же операторы'); writeln('4)используются команда выбора'); write('введите номер правильного ответа: '); read(n); if n=1 then k: =k+1; writeln('вопрос 2. сколько раз будет выполнятся цикл,< '); writeln('если начальное значение параметра -6'); writeln('конечное значение 6,'); writeln('шаг изменения параметра равен 3'); writeln('1)6 раз'); writeln('2)5 раз'); writeln('3)4 раз'); writeln('4) не выполнится ни разу'); write('введите номер правильного ответа: '); read(n); if n=2 then k: =k+1; case k of 1,2: writeln('плохо'); 3: writeln('удовлетворительно'); 4: writeln('хорошо'); 5: writeln('отлично'); end; readkey; end.

Без проверок и прочего, все как написано в . если нужно было с проверками - напишите, переделаю : ) program project1; var totala, totalb, solda, soldb : integer; pricea, priceb, sum: real; begin write(' введите цену товара "а": '); readln(pricea); write(' введите количество товара "а" в начале рабочего дня: '); readln(totala); write(' введите количество проданного товара "а": '); readln(solda); write(' введите цену товара "б": '); readln(priceb); write(' введите количество товара "б" в начале рабочего дня: '); readln(totalb); write(' введите количество проданного товара "б": '); readln(soldb); sum: = ((pricea*solda)+(priceb*soldb)); writeln('выручка от продажи двух товаров за день: ', sum: 5: 2); readln; end.