есть ошибка в программе при востановлении видеорежима

uses dos;
TYPE point = record
  koord: word; {nachalo poligona}
  high: word;  {kolichestvo strok}
  scale: word; {shirina 1-oi stroki v pixel}
  naklon: word;{naklon poligona vlevo-vpravo}
  stnakl: word;{storona naklona vlevo-priamo-vpravo}
  end;
 
 
CONST points: array[1..12] of point=
  {----Ch-----}
  ((koord:6217;high:130;scale:20;naklon:4;stnakl:2),
  (koord:6217;high:130;scale:20;naklon:4;stnakl:0),
  (koord:32778;high:10;scale:20;naklon:0;stnakl:1 ),
  {----A----}
  (koord:6159;high:130;scale:20;naklon:0;stnakl:1),
  (koord:6090;high:77;scale:20;naklon:0;stnakl:1),
  (koord:24349;high:20;scale:70;naklon:0;stnakl:1),
  {---V----}
  (koord:6277;high:130;scale:20;naklon:0;stnakl:1),
  (koord:6277;high:20;scale:58;naklon:0;stnakl:1),
  (koord:24857;high:20;scale:68;naklon:0;stnakl:1),
  (koord:41495;high:20;scale:70;naklon:0;stnakl:1),
  (koord:24921;high:72;scale:20;naklon:0;stnakl:1),
  (koord:6333;high:58;scale:20;naklon:0;stnakl:1));
var param:integer;
begin
  asm
   mov ax,13h
   int 10h
   mov ax,0a000h
   mov es,ax
   lea si,points
   mov cx,12
@k:push cx
   mov di,[si]
   mov cx,[si+2]
   mov bx,[si+6]
   mov param,4
@l:push di
       push bx
       push cx
       mov cx,[si+4]
       not param
       mov bx,param
       @m: mov  [es:di],bx
       inc di
       not param
       mov bx,param
       loop @m
       pop cx
       pop bx
       pop di
       add di,320
       sub bx,1
       jnc @p
       sub di,[si+8]
       add di,1
       mov bx,[si+6]
       @p:
  loop @l
  add si,10
  pop cx
loop @k
  xor ah, ah
  mov al, VideoMode
  int 10h
 
  mov ah, 5
  mov al, ScreenPage
  int 10h
  end;
readln;
end.

xor ah, ah
  mov al, VideoMode
  int 10h
 
  mov ah, 5
  mov al, ScreenPage
  int 10h