Паскаль. Задача. Обработка строк

[Коршик]

Помогите, пожалуйста, с задачкой, а то я с Паскалем ну совсем не дружу :
Нужно написать программу, которая предлагает ввести текст и некоторую букву и определяет, сколько слов в тексте начинается на данную букву??

[samec2011]

Стучите в асю 11один11-5шесть5шесть, обсудим.

[dr.Jekill]

Код: Выделить всё

var txt:string;
      ch:char;
      i,k:integer;
begin
 write('text: ');
 readln(txt);
 write('bukva: ');
 ch:=readkey;
 write(ch);
 k:=0;
 for i:=1 to length(txt) to
 if (txt[i]=ch) and (txt[i-1]=' ') then inc(k);
 writeln('Count: ',k);
 readkey;
end. 
 

[dr.Jekill]

не забудьте подцепить модуль crt, для этого допишите первой строчкой

Код: Выделить всё

uses crt;

[Хыиуду]

А если вместо ch:=readkey написать readln(ch), а в конце вместо readkey - readln, то и crt не потребуется