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

var s: String;
begin
  Write('> '); ReadLn(s);
  asm
    xor bx,bx
    mov bl,byte ptr s
    cmp bl,7
    jb  @done
    dec bx
    mov dx,word ptr s[bx]
  @1:
    mov al,byte ptr s[bx]
    mov byte ptr s[bx+2],al
    dec bx
    jnz @1
    mov word prt s[1],dx
  @done:
  end;
  WriteLn('= ',s);
end.

const GLen=7;
var s: String;
begin
  {ReadLn(s);} s:='12345671234567123456'; 
  asm
    xor si,si
    xor cx,cx
    mov al,byte ptr s
  @1:
    sub al,GLen
    jb  @2
    inc cx
    jmp @1
  @2:
    mov bx,GLen-2
    mov dx,word ptr s[1+si+bx]
  @3:
    mov al,byte ptr s[si+bx]
    mov byte ptr s[2+si+bx],al
    dec bx
    jnz @3
  @4:
    mov word ptr s[1+si],dx
    add si,GLen
    loop @2
  end;
  WriteLn(s);
end.

const GLen=7;
var s: String;
begin
  {ReadLn(s);} s:='12345671234567123456'; 
  asm
    xor si,si
    xor cx,cx
    mov al,byte ptr s
  @1:
    sub al,GLen
    jb  @2
    inc cx
    jmp @1
  @2:
    jcxz @done
  @nextGroup:
    mov bx,GLen-2
    mov dx,word ptr s[1+si+bx]
  @nextChar:
    mov al,byte ptr s[si+bx]
    mov byte ptr s[2+si+bx],al
    dec bx
    jnz @nextChar
    mov word ptr s[1+si],dx
    add si,GLen
    loop @nextGroup
  @done:
  end;
  WriteLn(s);
end.