Модульое програмирование.Паскаль.Ассемблер.

[maziLa]

Нужно написать интерфейс на паскале, а модуль на ассемблере.
Задание: Ввести строку на паскале, передать её на ассемблер и результат вернуть в паскаль , там же его и вывести.
Задача ассемблера : в строке найти самое длинное слово и его длину.
Ассемблерный модуль

.model large,pascal
.data                               
extrn	s1: byte, s2: byte, d: word, e: word
.code
;Процедура WordMaxZ - Входные данные - Строка
;		   - Выходные данн. - Слово(макс)
public WordMaxZ                
WordMaxZ proc far        	
		lea si, s1
		mov cx, d
		                              
		lea di, s2               ; - макс. слово

		xor si, si
		xor dx, dx

	m44:	xor bx, bx
	m4:     inc bx                   ;счечик букв в слове
		inc si                   ;переход на проверку след символа в строке
		mov al, ' ' 
		cmp [si], al             ;если конец слова
		je m5                                        
		loop m4                  ;цикл пока не достигнут конец строки
		jmp m6          
	m5:	cmp dx, bx
		jge m44

		push si
		push cx
		mov cx , bx     
		sub si , bx      
		cld
		rep movsb      
		pop cx
		pop si
		
                 
		sub di, bx
		
		lea di, s2 
		mov dx, bx 
		            	
		jmp m4 
	m6:	mov e, bx  		
      		ret 
WordMaxZ endp 
                
end

Интерфейс на Паскале:

{$L C:\LR}

uses crt;
var
	s1, s2: string;
	d, e  : word;

procedure WordMaxZ; far; external;

begin
  clrscr;
  Write('Введите вашу строку :');
  ReadLn(s1);
  writeln(s1);
  writeln;
  d:=length(s1);
  WordMaxZ;
  Write('Самое длинное слово:');
  Write(s2);
  WriteLn;
  Write('Количество букв в нём: ');
  Write(e);
  WriteLn;	
  ReadLn;
end.

вместо макс слова ничего не выводить мож что делаю нетак помогите.

[alexcoder]

данные в ассемблерный модуль из паскаля нужно передавать через стек([bp+4],[bp+8] и т.д.). Внесите ассемблерный код в паскаль, внесите в него изменения, что-то типа mov cx, [bp+8] и посмотрите в отладчике как передаются параметры в процедуру. После того, как отладите ассемблерный код на паскале, можно выносить его в отдельный файл.