Управление клавиатурой, курсором, дисплеем

program ex1;
uses crt,dos;
var s:array [1..6] of byte;
    s1:array[1..6] of byte;
    stack : array[1..100]  of integer;
    mus : array[1..100]  of integer;
n: integer;
i,x,a,b1,c,d,X1: integer;
ch:char;k,reg:byte;
label m1,quit_,ex ;
procedure cls; {очистка всего экрана} 
          BEGIN
          ASM
          MOV AX,0600H {AH-06 (прокрутка) AL-00 (весь экран)}
          MOV BH,07 {нормальный атрибут (черно/белый)}
mov   CX,0000 {верхняя левая позиция}
          MOV DX,184FH  {верхняя правая позиция}
          INT 10H  {передача управления в BIOS}
          END;END; 
procedure regim(reg:byte); {установка режима экрана} 
begin     asm
          mov ah,00  
          mov al,reg {установка видеорежима}
          int 10h
          end;
          end;
procedure clear(a,b1,c,d,e:byte);
 begin
          asm
          mov ax,0600h
          mov bh,a
          mov cl,b1
          mov ch,c
          mov dl,d
          mov dh,e
          int 10h
        end;end
procedure movxy(x,y:byte); {установка позиции курсора}
begin
          asm
          mov ah,02{установление положения курсора}
          mov bh,00 {страница 0}
          mov dh,y {строка}
          mov dl,x {столбец}
          int 10h 
          end;end;
procedure pic(a1:byte);{вывод символа в текущую позицию курсора}
begin
          asm
          mov ah,09 {функция вывода}
          mov al,a1 {выводимый символ}
          mov bh,00 {номер страницы}
       MOV BL,1 {атрибут}
          mov cx,01 {число повторений}
          int 10h
          end;end;
procedure pic1(a1:byte);
begin
          asm
          mov ah,09
          mov al,a1
          mov bh,00
          MOV BL,1
          mov cx,78
          int 10h
          end;end;
procedure  parol; {скрытие пароля}
 begin
           asm
           mov ah,09
           mov al,'*' {выводимый символ}
           mov bh,00
           mov bl,15 {цвет символа}
           mov cx,1
           int 10h
           end;end;
BEGIN
    textcolor(10);
    clrscr;
    reg:= 3;
    regim(reg);
    clear(37,0,1,80,67);
    movxy(0,1);
    PIC(201);
    MOVXY(1,1); 
    PIC1(205);
   MOVXY(79,1);
    PIC(187);
    FOR I:=1 TO 22 DO
BEGIN
      MOVXY(79,2+X1);X1:=X1+1;
      PIC(186);
      MOVXY(0,1+X1);
      PIC(186);
    END;
   MOVXY(79,24);
   PIC(188);
   MOVXY(0,24);
   PIC(200);
   MOVXY(1,24);
   PIC1(205);
 begin
   clear(07,20,9,60,15);
   clear(27,22,10,58,14);
m1:   clear(07,23,11,57,13);
clear(07,30,0,50,0);
   movxy(30,0);
   if k<2 then writeln('You have',3-k:3, ' chance')
           else write('Last chance');
MOVXY(25,12);
   write('Enter Password');
   movxy(40,12);
   for i:=1 to 6 do
write(r);     
begin
        ch:=readkey;
movxy(40+x,12);parol;x:=x+1;
       s[i]:=ord(ch);
      end;
k:=k+1;x:=0;
   s1[1]:=32;s1[2]:=50;s1[3]:=49;s1[4]:=53;s1[5]:=55;s1[6]:=32;
   for i:=1 to 6 do
begin
       if (s[i]<>s1[i])and(k<3) then goto  m1;
       if (s[i]<>s1[i])and(k>=3) then goto quit_;
       end;
begin
     cls;
     reg:=1;
     regim(reg);
     repeat
       movxy(11,10);
       write('Correct password');
       movxy(6,24);
       TEXTCOLOR(7);
write('to exit press the space bar');
       movxy(25,75);
     until (readkey = #32);
     goto ex;
quit_: cls;reg:=1;regim(reg);
       movxy(12,12);
write('Incorrect password');
      end;end;
ex:readkey;
 end.