паскаль. строковые данные

[Narim]

всем привет. не могу решить задачу по теме строковые данные.плиз напишите задачу.буду благодарен
задачу надо решить с помощьу строк символов
Дан текст.Определить число вхождений буквы "р" в первые три слова текста.
есть не большие накидки:
program narim1;
uses crt;
const n=10;
var
a:array [1..n] of string;
s:string;
i,k:integer;

begin

for i:=1 to 3 do
if a[i]:=" " then
k:=pos(s,"p");

[Niro]

Можно так, но при условии что строка начинается не с пробела, а с кого-нибудь другого символа

repeat
   i:=i+1;
   if stroka[i]=' ' then k:=k+1;
   if stroka[i]='p' then счетчик:=счетчик+1;
until k=3;