Передать строку символов из Pascal программы в подпрограмму на ассемблере

{$L poisk.obj}
var str:string;
    dlinna, pos:integer;
    sim:char;
    i:byte;
    bool:boolean;
function poisk(str:string, simvol:char, dlin:integer):integer;near;external;
function poisk_pas(str:string; simvol:char;dl:integer):integer;
begin
     for i:=0 to dl do 
         if str[i]=simvol then begin
            poisk_pas:=i;
            bool:=true;
            break
         end;
     if bool<>true then poisk_pas:=-1
end;
function poisk_asmp(str:string; simvol:char;dlin:integer):integer;assembler;
asm
   les si, str
   mov cx, dlin
   mov bl, simvol
   xor dx, dx
   @1:
      add dx, 1
      mov al, es:[si+1]
      cmp al, bl
            je @2
      inc si
      loop @1
   @2:
       mov ax, dx
end;
begin
     writeln('vvedi stroku');
     readln(str);
     dlinna:=length(str);
     writeln('vvedi simvol');
     readln(sim);
     pos:=poisk_pas(str, sim, dlinna);
     if pos<>-1 then writeln('pascal: ',pos)
     else writeln('net simvola');
     pos:=poisk_asmp(str, sim, dlinna);
     if pos<>-1 then writeln('vstroenniy assembler: ',pos)
     else writeln('net simvola');
     pos:=poisk(str, sim, dlinna);
     if pos<>-1 then writeln('assembler: ',pos)
     else writeln('net simvola');
     readln;
end.