Игра в слова

Program gameslovo;
 
uses crt;
 
var yn,prav,who,st,q:string; dic:text; i,n,p,o,a:integer;
 
begin clrscr;
 
TextBackGround(3);
 
writeln('Добро пожаловать в игру "Слова"');
TextColor(4);writeln('Желаете сыграть? [yes/no]?');
 
Readln(yn);
 
if yn='no' then Exit;
 
if yn='yes' then clrscr
 
else Exit;
 
TextColor(4);writeln('А правила то знаем, а? [yes/no]?');
 
readln(prav);
 
if prav='no' then clrscr;
 
TextColor(4);writeln('ÏÐÀÂÈËÀ ÈÃÐÛ !');
 
TextColor(15);
 
writeln('Cуть игры заключается в следующем: задается');
writeln('слово,затем из букв,входящих в это слово,');
writeln('игроками по очереди составляются новые');
writeln('слова. Заканчивается игра тогда,когда оба');
writeln('игрока отказываются от ввода новых слов.');
writeln('Выигрывает тот, у кого общая длина');
writeln('составленных слов окажется больше.');
 
writeln;
 
if prav='yes' then clrscr;
 
TextColor(4);
 
TextColor(4);writeln('Скем тогда играть будем ? [comp/men]?');
 
readln(who);
 
if who='men' then
 
writeln('Введите кол-во букв в слове');
 
readln(p);
 
assign(dic,'C:\slova\dic.txt');
 
reset(dic);
 
repeat
 
n:=random(100000);
 
for i:=1 to n do
 
begin
 
readln(dic,st);
 
end;
 
o:=length(st);
 
until o=p;
 
TextColor(14);writeln(' ',st);
 
close(dic);
 
end.