Case wybor of
    1:
       Begin
         Repeat      //O TUTAJ, NAPRAWDE CIEZKO BYLO NA TO WPASC SAMEMU?
           Obramowanie;      //stad do
           Clrscr;
           x:= 3;
           y:= 3;
           Gotoxy (x,y);
           Writeln (chr(254));
           Obramowanie;
           klawisz:= readkey;
           Case Klawisz of
             'a': dec(x);
             's': inc(y);
             'w': dec(y);
             'd': inc(x);
           End;
           If (x > 24) Then x:= 24;
           If (y > 19) Then y:= 19;
           If (x < 3) Then x:= 3;
           If (y < 3) Then y:= 3;
           If (x = 24) and (y = 19) Then Clrscr;
           Gotoxy (x,y);
           Writeln (chr(254));
           Obramowanie;  //tad mozna do funkcji jest ladniej



         //Repeat    O TEN O REPEAT
           xlos := (3+Random(26));
           ylos := (3+Random(21));
         If ((x = xlos) and (y = ylos)) Then
            Case 1+Random(3) of
            1:
                If (Pytaj_warianty(q[(1+Random(31))]) = True) Then
                     Dobrze (x,y)
                Else
                     Zle (x,y);
            2:
                If (Pytaj_odpowiedz(a[(1+Random(23))]) = True) Then
                     Dobrze (x,y)
                Else
                     Zle (x,y);
            3:
                If (Pytaj_liczba(p[(1+Random(16))]) = True) Then
                    Dobrze (x,y)
                Else
                    Zle (x,y);
            End;
         Until ((x = 26) and (y = 21));
         Clrscr;
      End;