Модуль CRT

             Uses crt;
                         {Const s=25;}
                         Var a:array [1..1000] of STRING[9];
                             i,n: Integer;
                             K: byte;
                             Kod: Char;
                         Begin clrscr;
                           Read(n);
                           Window(31,11,50,16);
                           TextBackGround(7);
                           TextColor(0);
                           ClrScr;
                           K:=1;
                           GotoXY(1,1);
                           For i:=1 To n+1 Do
                              Readln(a[i]);
                           Repeat
                             Kod:=ReadKey;
                           For i:=1 To n+1 Do
                             Begin
                            If Kod=#0
                              Then Begin
                                     Kod:=Readkey;
                                     If Kod=#72
                                       Then If i>1
                                           Then i:=i-1
                                           Else i:=n;
                                     If Kod=#80
                                       Then If i>1
                                           Then i:=i-1
                                           Else i:=n;
                                   End;
                            If Kod=#71
                              Then GotoXY(1,1);
                            If Kod=#79
                              Then GotoXY(length(a[n]),n);
                            If Kod=#83
                              Then Delete(a[i],i+1,1);
                              End;
                              {Textmode(3);}
                           Until Ord(Kod)=27;
                         End.