uses fonet;

var f:file;
    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,1);
{write('Hled m ');
loader.findchap(3,f);}
writeln;
while not(loader.eof) do begin
s:=loader.loadlin(f);
write(s,' ( ',{trans_sm(s) ,' )> ',} fonetic(s));
readln(xx);
if (xx='r') then loader.seekchap(f);
end;
end.