begin

 var S := ReadlnString('Вводи сплошной строкой:').ToCharArray;

 SetLength(S, 50);

 Println('Приняты символы:');

 S.Println('');

 Println('Найдено z:', S.Count(c -> c = 'z'))

end.