Связать ассемблеровскую прогу с языком высокого уровня

var str:string;
pos, i:byte;
sim:char;
bool:boolean;
begin
writeln('vvedi stroku');
readln(str);
writeln('vvedi simvol dlya poiska');
readln(sim);
i:=length(str);
asm
mov al, sim
mov cl, i
xor ch, ch
xor si, si
@1:
cmp str[si], al
je @2
inc si
loop @1
jmp @3
@2:
inc si
mov ax, si
mov i, al
jmp @4
@3:
mov i, 0
@4:
end;
if i<>0 then writeln(i)
else writeln('net simvola');
readln;
end.

var str:string;
pos, i:byte;
sim:char;
bool:boolean;
begin
writeln('vvedi stroku');
readln(str);
writeln('vvedi simvol dlya poiska');
readln(sim);
bool:=true;
for i:=1 to length(str) do
begin
if str[i]=sim then begin
bool:=true;
break;
end
end;
if bool=true then writeln(i)
else writeln('net simvola');
readln;
end.

var str:string;
dlinna, pos:integer;
sim:char;
i:byte;
bool:boolean;
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');
readln;
end.

.MODEL LARGE,PASCAL
.CODE
public poisk
 
poisk proc near str:byte, simvol:byte, dlin:word
les si, str     ; es:si  <- адрес строки
mov bl, simvol      ; es:si  <- адрес символа
mov cx, dlin        ; cx <- количество элементов
xor cx, cx      ; cx <- 0 
@v1:
inc dx          
mov al,es:[si]      ; загрузить значение из массива
cmp al,bl
je @v2
inc si
loop @v1
@v2:
mov ax, dx
 
ret8  ;возврат из подпрограммы
poisk endp  ;конец подпрограммы
 
end