uses fonet;

const ttyp:set of char=['h','m','f','u','a'];

var f:file;
    t:text;
    s,r,typ:string;
    k,l,v1,v2:byte;
    loader:Tloader;

begin
dr:='d:\wts\';
{dr:='';}
bksinit;
loader.init;

repeat
l:=0;
write(' Kniha :');
readln(s);
if s='?' then for k:=1 to 39 do
 with bks[k] do
  writeln(n:30,'  ',b[1],b[2])
else if length(s)=2 then
 for k:=1 to 39 do
 with bks[k] do
  begin
  if (s[1]=b[1]) and (s[2]=b[2]) then l:=k;
  if (chr(ord(s[1])-32)=b[1]) and (chr(ord(s[2])-32)=b[2]) then l:=k;
  end;
until l>0;

assign(f,dr+bks[l].b[1]+bks[l].b[2]+'morf94.wts');
reset(f,1);

write('Kapitola :');
readln(k);
write('Od ver¨e :');
readln(v1);
write('Do ver¨e :');
readln(v2);
write('Jm‚no souboru :');
readln(s);
repeat
write('Znˆn¡ :');
readln(typ);
if typ[1]='?' then begin
 writeln('N povˆda :');
 writeln('h - souhl sky');
 writeln('m - samohl sky');
 writeln('f - foneticky');
 writeln('u - souhl sky + foneticky');
 writeln('a - samohl sky + foneticky');
 end;
until typ[1] in ttyp;
assign(t,s);
rewrite(t);
writeln(t,bks[l].n,' ',k,',',v1,'-',v2);
write('Hled m kapitolu ');
loader.findchap(k,f);
writeln;
writeln('Proj¡‘d¡m kapitolu');
while not(eof(f) or (loader.nm[1]>k)) do begin
s:=loader.loadlin(f);
if (loader.nm[2]>=v1) and (loader.nm[2]<=v2) and (loader.nm[3]=1) then
 writeln(t,' ;');
if (loader.nm[1]=k) and (loader.nm[2]>=v1) and (loader.nm[2]<=v2) then
 case typ[1] of
 'f':write (t,fonetic(s),' ');
 'h':writeln(t,trans_sh(s));
 'm':writeln(t,trans_sm(s));
 'u':writeln(t,trans_sh(s),' - ',fonetic(s));
 'a':writeln(t,trans_sm(s),' - ',fonetic(s));
 end;
end;
writeln;
writeln('Kon‡¡m');
readln;
end.