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

[dukov123]

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

[ZX Spectrum-128]

var
  s:string;
  i:integer;
  zyes:boolean;
begin
  s:='ozzy osbourne zzzz!';
  zyes:=false;
  for i:=1 to length(s)-1 do
    if (s[i]=' ') and (s[i+1]='z') then
    begin
      zyes:=true;
      break;
    end;
  if zyes then
      writeln('Yes')
    else
      writeln('no');
end.

[Serge_Bliznykov]

ZX Spectrum-128 , думаю, косячок-с имеется в вашем коде.
Если первое слово начинается с "z"...
тогда уж s := ' '+ s; перед циклом for можно сделать.

[ZX Spectrum-128]

Тоже увидел. Но не стал править. Хотел топикстартеру оставить.