Помогите пожалуйста решить в Pascal

используй эту программу, она определит кол-во слов в строке
program str1;
uses crt;
var
i,k:integer;
s:string;
begin
clrscr;
write('Введите предложение не меньше чем из 3-х слов (--> '); readln(s);
k:=0;
for i:=1 to length(s) do
if (S [ I ] =' ')then begin k:=k+1;
if k=2 then begin
writeln('третье слово в предложение начинаеися с буквы ',s[i+1]); end;
end;
readln;
end.