Задача:Определить, сколько слов в последовательности А начинается с буквы N и сколько слов в последовательности В начинается с буквы Y.
Для подсчета в произвольной последовательности числа слов, начинающихся с заданного символа, использовать самостоятельно разработанную процедуру.
Вот что я написал:
program Project5;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s:string;s1:string;
i,n,m,k,l:integer;
d,p:char;
procedure Bukv(s:string;d:char;var k:integer);
var i:integer;
begin
for i:=1 to n do
if(i<n) and (s[i]=d) and (s[i-1]=' ') then
k:=k+1;
end;
Begin
writeln ('Input S');
readln(s);
writeln ('Input S1');
readln(s1);
n:=length(s);
writeln ('Input d');
readln(d);
writeln ('Input p');
readln(p);
begin
Bukv(s,d, k);
writeln(k);
Bukv(s1,p, l);
writeln(l);
end;
readln;
end.
Так вот, программа работает, и ошибок нет, но если в последовательности первое слово начинается на заданную букву, то программа его не учитывает, подскажите, что исправить в IF.