delkaklic2 =
  Divisors[Ceiling[StringLength[ot]/StringLength[klic1]]*
    StringLength[klic1]];
mes2 = StringForm["Zadej druhý klí-Bè o d-Aélce `` znak-Bù.", delkaklic2];
klic2 = filtrtextu[InputString[mes2]];
If[Mod[Ceiling[StringLength[ot]/StringLength[klic1]]*
     StringLength[klic1], StringLength[klic2]] != 0,
  Return[MessageDialog[
    "Chyba!!! (zadali jste ¹patn-Aý po-Bèet znakù druh-Aého klí-Bèe)"]]];