Составить программку, определяющую, имеется ли в строке хотя бы одно слово,

Программка определяет наличие в строке слов,которые начинаются с "z" и "Z".

program letter_z;
var s: string;
k: integer;
begin
writeln(Введите несколько слов через пробел:);
readln(s);
k:= 0;
for i: integer:= 1 to length(s) do
begin
//Если z в начале строчки
if (i = 1) and ((s[1] = z) or (s[1] = Z)) then k:= k + 1;
//Если с z начинается слово и это слово не 1-ое в строке
if (i gt; 1) and ((s[i - 1] + s[i] = z) or (s[i - 1] + s[i] = Z)) then k:= k + 1;
end;
writeln();
if k gt; 0 then writeln(В строке есть слова, начинающиеся с букв "z" (, k, ).)
else
writeln(В строке нет слов, начинающиеся с буковкы "z".)
end.