PROGRAM Hledani_Dne_V_Mesici;

uses crt,strings;

var den,dennew,denold,denstart,denhledej:string;
    dnipocet:integer;
    denx,denc:integer;
    q:char;

begin

repeat
clrscr;

writeln('');
writeln(' Hledani dnu v mesici');
writeln(' ^^^^^^^^^^^^^^^^^^^^');
writeln('');
write(' Pocet dni v mesici: ');readln(dnipocet);
write(' Zaciname dnem (cele slovo v 1. pade): ');readln(denstart);
write(' Hledame den (cele slovo v 1. pade): ');readln(denhledej);
writeln('');

den:=denstart;
denx:=0;
for denc:=1 to dnipocet do
    begin
    if den = 'nedele'  then dennew:='pondeli';
    if den = 'sobota'  then dennew:='nedele';
    if den = 'patek'   then dennew:='sobota';
    if den = 'ctvrtek' then dennew:='patek';
    if den = 'streda'  then dennew:='ctvrtek';
    if den = 'utery'   then dennew:='streda';
    if den = 'pondeli' then dennew:='utery';


    if denhledej = den  then denx:=denx + 1;
    denold:=den;
    den:=dennew;
    end;

clrscr;
writeln('');
writeln(' ----------------------------------------------');
writeln(' Zacali jsme dnem: ', denstart);
writeln(' Skoncili jsme dnem: ', denold);
writeln('');
writeln(' Hledali jsme den: ', denhledej);
writeln(' Nasli jsme ho: ', denx, ' krat');
writeln(' ----------------------------------------------');
writeln('              Dny v mesici - 2008-12-27 by ZK');

writeln('');
writeln('');
write('Nove hledani (a/n): ');readln(q)
until q = 'n';

end.