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

Программа определяет наличие в строке слов,которые начинаются с \"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 начинается слово и это слово не первое в строкеif (i > 1) and ((s[i - 1] + s[i] = \' z\') or (s[i - 1] + s[i] = \' Z\')) then k:= k + 1;end;writeln();if k > 0 then writeln(\'В строке есть слова, начинающиеся с букв \"z\" (\', k, \').\') else writeln(\'В строке нет слов, начинающиеся с буквы \"z\".\')end.