Заменить вызов функции ассемблерной вставкой - Assembler

Формулировка задачи:

Добрый вечер ! Вот такая проблема, мне нужно заменить вызов функции ассембл вставкой , я вот тут сделал но у меня выдает ошибку в 33 строке

Program lab(input,output);
uses crt;
const
 n = 23;
var
 i : word;
 m1, m2 :array [1..n] of byte;
 {$L bigshow.obj}
 
{$F+}
 Procedure BigShow(var p1;p2:word);external;
 Function Biggr (var M1, M2; Len: word):boolean; external;
{$F-}
 
begin {Main program}
clrscr;
 for i:=1 to n do
  begin
   m1[i]:=0;
   m2[i]:=0;
 end;
 m1[20]:=2;
 m2[20]:=2;
  write('m1= ');
  BigShow(m1, n);
  write('m2= ');
  BigShow(m2,n);
  {write(Biggr(m1,m2,n));   }
   asm
        lea ebx,[m1]
        push ebx
        lea ebx,[m2]
        push dword ptr[n]
        call Biggr
        add esp,12
   end ;
 
  readln;
end.

Решение задачи: «Заменить вызов функции ассемблерной вставкой»

textual
                            Листинг программы 
                        

                             asm
        lea bx,[m1]
        push bx
        lea bx,[m2]
        push bx
        push word ptr[n]
        call Biggr
   end;
                        