Задача о строках Опции

[Юра]

Помагите сделать последний штрих, вроде бы все уже сделано
Задача:Определить, сколько слов в последовательности А начинается с буквы 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.

Сообщение отредактировано: volvo - 6.11.2006 21:47