Výskyt znaku v reťazci

Pre zadaný znak zistite, koľko ráz sa nachádza v zadanom reťazci.

V tomto prípade ide o cyklus so známym počtom opakovaní.
Program najskôr z Edit1 načíta zadané slovo, v Edite2 zadáme, ktorý znak hľadáme. Premenná poc je určená na počítanie výskytu hľadaného znaku.
Priebeh cyklu závisí od dĺžky slova. Porovnávame i-ty znak v premennej slovo. Ak sa zhodujú, počítadlo sa zvýši.