uses fonet;

var f:Fchr;
    s,n,xx:string;
    ww:w;
    i,j:byte;
    an,an1:analys2;
    loader:Tloader;

begin
dr:='';
bksinit;
loader.init;
assign(f,'c:\WTS\exmorf94.wts');
reset(f);
write('Hled m ');
loader.findchap(3,f);
writeln;
while not(eof(f)) do begin
s:=loader.loadlin(f);
write(s,' ( ',trans_sm(s) ,' )> ', fonetic(s));
readln(xx);
if (xx='r') then loader.seekchap(f);
end;
end.