{Zadanie prikladu 3: Zostavte program, do ktoreho napisete vetu a program zisti, kolkokrat sa vo vete nachaza znak, ktory vopred nacitate z klavesnice.
Hodnotenie: 
Hlavicka (deklaracia premennych): 2 body
Telo: 2 body
Nekomplikovanost: 1 bod

}

program Pismeno_a;
uses crt;
var			{deklarovanie premennych}
  Cstr_veta : string;
  Cstr_1 : string;
  znak: string;
  dlzka_vety : integer;
  index : integer;
  pocet_pismena : integer;

begin
  clrscr;		{zmazanie obrazovky}
  writeln('Zadaj vetu ukoncenu bodkou');
  readln(Cstr_veta);				{nacitanie vstupu}
  clrscr;
  writeln('Zadaj ktory znak ma spocitat: ');
  readln(znak);
  znak:=upcase(znak);
  dlzka_vety := length(Cstr_veta); 	{zistenie dlzky retazca}
  For index := 1 To dlzka_vety Do
    begin
      Cstr_1 := Cstr_veta[index];
      Cstr_1 := upcase(Cstr_1);
      IF Cstr_1 = znak THEN
        begin
          pocet_pismena := pocet_pismena + 1;
        end;
    end;
  writeln('Pocet takychto znakov vo vete je ',pocet_pismena);    {vypisanie vystupu}
  readln;
end.