Дана последовательность символов (вводим с клавиатуры),концом который является символ точка. подсчитать,сколько в этой последовательности букв z.(в паскале).

Var a,temp: String;
begin
while true do
begin
ReadLn(temp);
a+=temp;
if temp.EndsWith('.') then
break;
end;
Writeln(a.Split('Z').Length-1);
end.