program Asics;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

label
    Start, FirstPoint, Change, End22;

var
    MyArr: array[1..10] of byte;
    l: byte;
    i: byte;
begin
    l := 10;
 //   SetLength(MyArr, l);
    for i := 1 to 10 do
        MyArr[i] := i;
    asm
        Start:
            movzx esi, [l]
            inc esi
            mov cl, 0
        FirstPoint:
            dec esi
            mov al, byte[MyArr + esi - 1]
            cmp al, 7
            jg Change
            cmp si, 0
            jne FirstPoint
            jmp End22
        Change:
            mov byte[MyArr + esi - 1], 7
            inc cl
            cmp si, 0
            jne FirstPoint
        End22:
    end;
    for i := 1 to 10 do
        write(MyArr[i], ' ');
    readln
end.