program poomine;
uses crt, graph;
label edasi, uuesti, l6pp;

var
    t2ht   :    string;
    key    :    char;
    s6na   :    string;
    f      :    text;
    draiver,mood:integer;
    s6na1  :    string;
    lenght :    byte;
    a,x,k  :    integer;
    b      :    boolean;
    s6nad1 :    array[1..100] of string;
    arvatud:    array[1..30] of string;
    sona   :    string;
    i,u,t,m:    integer;
    yxt2ht :    array[1..20] of integer;
    kontroll:   string;

procedure s6nagraaf;{Joonistab v„lja „raarvatud säna}
begin
     x:=100;
     for i:=1 to length(s6na1) do
    begin
     outtextxy(x,100,copy(s6na1,i,1));
     rectangle(x-10,90,x+14,115);
     x:=x+30;
    end;
end;

procedure arvatud_t2hed;
begin
     outtextxy(400,90, 'valed:');
     for u:=1 to 30 do
     outtextxy(400,100+10*u,arvatud[u]);
end;

procedure nahtavsona; {genereerib „raarvatud s6na}
          begin
          t:=0; i:=0;
          kontroll:=s6na;
          repeat
          i:=i+1;
          t:=t+pos(t2ht,kontroll);
          kontroll:=(copy(kontroll,pos(t2ht,kontroll)+1,length(kontroll)));
          yxt2ht[i]:=t;
         { writeln(yxt2ht[i],kontroll);}
          until pos(t2ht,kontroll)=0;
          m:=i;
          for i:=1 to m do begin
              insert(t2ht,s6na1,yxt2ht[i]);
              delete(s6na1,yxt2ht[i]+1,1);
              {writeln(s6na1);} end;
          end;

procedure poo; {Joonistab poomise pildi}
begin
     k:=0;
     SetLineStyle(1,1,3);
     line(200,400,200,200);             k:=k+1;    if k<a then
     begin  line(200,200,300,200);      k:=k+1;    if k<a then
     begin  circle(300,290,10);         k:=k+1;    if k<a then
     begin  line(300,300,300,350);      k:=k+1;    if k<a then
     begin  line(300,350,320,400);      k:=k+1;    if k<a then
     begin  line(300,350,280,400);      k:=k+1;    if k<a then
     begin  line(300,300,280,350);      k:=k+1;    if k<a then
     begin  line(300,300,320,350);      k:=k+1;    if k<a then
     begin  line(300,200,300,280);
            outtextxy(200,400,'SA OLED SURNUD!');
            b:=true;
     end; end; end; end; end; end; end; end;
end;

begin
draiver:=detect;
initgraph(draiver,mood,'');

{Sona maaramine}
assign(f,'s6nad.txt');
reset(f);
i:=1;
while not eof(f) do
      begin
      readln(f,sona);
      s6nad1[i]:=sona;
      i:=i+1;
      end;
uuesti:
cleardevice;
randomize;
for a:=1 to 30 do arvatud[a]:='';
b:=false;
a:=random(20);
s6na:=s6nad1[a];

{ Arvamine }
a:=0;
s6na1:='';
for i:=1 to length(s6na) do
insert('*',s6na1,length(s6na1)+1);
edasi:
      s6nagraaf;
      outtextxy(50,50, 'Ytle t2ht');
      MoveTo(100,100);
      readln(t2ht);
      cleardevice;
      if Pos(t2ht,s6na)=0 then
             begin
             a:=a+1;
             arvatud[a]:=t2ht;
             outtextxy(50,30, 'Vale taht!');
             end
      else outtextxy(50,30, '6ige t2ht!!!');
      t:=t+1;
      nahtavsona;
      s6nagraaf;
      poo;
      arvatud_t2hed;
if s6na1=s6na then outtextxy(50,60, 'SINA V6ITSID!');
if (s6na1=s6na) or (b=true) then
outtextxy(50,80, 'Kas proovid veel? J/E')
else goto edasi;
key:=readkey;
if key='j' then goto uuesti;
closegraph;
end.