ПЕРЕВОД прописю на строч.

[Ам тя]

составить внешнюю программу,оформить ее в отдельном модуле. прописные лат. буквы на строчные.
я взяла пока тип char(надо string)
не работает...помогите исправить(может и с styring поможете потом)
=)

паскаль main
44.pas

{$L lab4.obj}
{$f+}
 Function locase(c:char):char;external;
var c:char;
    begin
readln(c);
c:=locase(c) ;

write(c);

 end.

на ассемблере внешний модуль lab4

code    segment byte  public
        assume  cs:code
         public  LoCase

LoCase  proc    far
varC    equ     dword ptr[bp+4]

        push    bp
        mov     bp,sp
        les     bx,varC

        mov     al,es:[bx]

        cmp     al,'a'
        jb      exit
        cmp     al,'z'
        ja      Exit
        and     al,0dfh
        mov     es:[bx],al
Exit:   pop     bp
        ret     4

LoCase  endp

        end