program p04;
uses Crt;

var znak:char;
    veta:string;
    pocet,i:byte;

begin
clrscr;
write('Napis vetu : ');
readln(veta);
write('Znak : ');
readln(znak);
writeln;
for i:=1 to length(veta) do
if veta[i]=znak then pocet:=pocet+1;
writeln('Veta zni: ',veta);
writeln('Znak "',znak,'" je v ni obsazen celkem ',pocet,' krat.');
repeat until keypressed;
end.