Помогите перевести с паскаля на асемблер)) а то я в нем не шарю вообще((( на паскале написал без проблем а вот с асем запары...

program dd;
var s : string;
len, i : integer;

function inv_char(ch:char) : char;
begin

if (ch>='а') and (ch<='п') then ch := chr(ord('А')+ord(ch)-ord('а'))
else
if (ch>='р') and (ch<='я') then ch := chr(ord('Р')+ord(ch)-ord('р'))
else
if (ch>='A') and (ch<='П') then ch := chr(ord('А')+ord(ch)-ord('А'))
else
if (ch>='Р') and (ch<='Я') then ch := chr(ord('Р')+ord(ch)-ord('Р'))
else
if ch='ё' then ch := 'Ё'
else
if ch='Ё' then ch := 'ё';

inv_char := ch;
end;


begin
WriteLn('Введите строку');
ReadLn(s);

len := length(s);

for i:= 1 to len do
s := inv_char(s);

WriteLn('Получилась такая строка');
WriteLn(s);

ReadLn;
end.