Text Moving Randomly On Screen

{Made By Wade Rollins}
Program Moving_Txt_On_The_God_Damn_Screen;
Uses crt;
Var
   Txt: String;
   x, y: Integer;
   i: Byte;
Procedure Input;
          Begin
               clrscr; TextColor(White);
               Write('Input the txt: '); Readln(Txt);
          End;
Procedure InitTxt;
          Begin
               Randomize; clrscr;
               x:=Random(80)+1-length(Txt); y:=Random(25)+1;
               Gotoxy(x,y); Write(Txt);
          End;
Function ChecknFail: Boolean;
         Begin
              If (i=1) and ((x=1) or (y=1)) then ChecknFail:=true;
              If (i=2) and (y=1) then ChecknFail:=true;
              If (i=3) and ((x+length(Txt)>=80) or (y=1)) then ChecknFail:=true;
              If (i=4) and (x+length(Txt)>=80) then ChecknFail:=true;
              If (i=5) and ((x+length(Txt)>=80) or (y=25)) then ChecknFail:=true;
              If (i=6) and (y=25) then ChecknFail:=true;
              If (i=7) and ((x=1) or (y=25)) then ChecknFail:=true;
              If (i=8) and (x=1) then ChecknFail:=true;
         End;
Procedure Move;
          Var
             Color: Byte;
             j: Word;
          Begin
               Randomize;
               Repeat
                     i:=Random(8)+1;
                     While ChecknFail=true do
                           Begin
                                i:=Random(8)+1;
                           End;
                     Case i of
                          1:
                            Begin
                                 Gotoxy(x,y); TextColor(Black);
                                 For j:=1 to length(Txt) do
                                     Write(' ');
                                 Color:=Random(15)+1;
                                 While Color=10 do
                                      Begin
                                           Color:=Random(15)+1;
                                      End;
                                 TextColor(Color);
                                 Gotoxy(x-1,y-1); Write(Txt);
                                 Delay(500);
                                 x:=x-1; y:=y-1;
                            End;
                          2:
                            Begin
                                 Gotoxy(x,y); TextColor(Black);
                                 For j:=1 to length(Txt) do
                                     Write(' ');
                                 Color:=Random(15)+1;
                                 While Color=10 do
                                      Begin
                                           Color:=Random(15)+1;
                                      End;
                                 TextColor(Color);
                                 Gotoxy(x,y-1); Write(Txt);
                                 Delay(500);
                                 y:=y-1;
                            End;
                          3:
                            Begin
                                 Gotoxy(x,y); TextColor(Black);
                                 For j:=1 to length(Txt) do
                                     Write(' ');
                                 Color:=Random(15)+1;
                                 While Color=10 do
                                      Begin
                                           Color:=Random(15)+1;
                                      End;
                                 TextColor(Color);
                                 Gotoxy(x+1,y-1); Write(Txt);
                                 Delay(500);
                                 x:=x+1; y:=y-1;
                            End;
                          4:
                            Begin
                                 Gotoxy(x,y); TextColor(Black);
                                 For j:=1 to length(Txt) do
                                     Write(' ');
                                 Color:=Random(15)+1;
                                 While Color=10 do
                                      Begin
                                           Color:=Random(15)+1;
                                      End;
                                 TextColor(Color);
                                 Gotoxy(x+1,y); Write(Txt);
                                 Delay(500);
                                 x:=x+1;
                            End;
                          5:
                            Begin
                                 Gotoxy(x,y); TextColor(Black);
                                 For j:=1 to length(Txt) do
                                     Write(' ');
                                 Color:=Random(15)+1;
                                 While Color=10 do
                                      Begin
                                           Color:=Random(15)+1;
                                      End;
                                 TextColor(Color);
                                 Gotoxy(x+1,y+1); Write(Txt);
                                 Delay(500);
                                 x:=x+1; y:=y+1;
                            End;
                          6:
                            Begin
                                 Gotoxy(x,y); TextColor(Black);
                                 For j:=1 to length(Txt) do
                                     Write(' ');
                                 Color:=Random(15)+1;
                                 While Color=10 do
                                      Begin
                                           Color:=Random(15)+1;
                                      End;
                                 TextColor(Color);
                                 Gotoxy(x,y+1); Write(Txt);
                                 Delay(500);
                                 y:=y+1;
                            End;
                          7:
                            Begin
                                 Gotoxy(x,y); TextColor(Black);
                                 For j:=1 to length(Txt) do
                                     Write(' ');
                                 Color:=Random(15)+1;
                                 While Color=10 do
                                      Begin
                                           Color:=Random(15)+1;
                                      End;
                                 TextColor(Color);
                                 Gotoxy(x-1,y+1); Write(Txt);
                                 Delay(500);
                                 x:=x-1; y:=y+1;
                            End;
                          8:
                            Begin
                                 Gotoxy(x,y); TextColor(Black);
                                 For j:=1 to length(Txt) do
                                     Write(' ');
                                 Color:=Random(15)+1;
                                 While Color=10 do
                                      Begin
                                           Color:=Random(15)+1;
                                      End;
                                 TextColor(Color);
                                 Gotoxy(x-1,y); Write(Txt);
                                 Delay(500);
                                 x:=x-1;
                            End;
                     End;
               Until KeyPressed;
          End;
Begin
     Input;
     InitTxt;
     Move;
End.