Замена знаков

{$AsmMode Intel}
 
var
  inputStr: string;
 
begin
  // Ввод строки
  ReadLn(inputStr);
 
  // Замена символов после первого '*'
  asm
    // Переменные:
    //   ESI - указатель на текущий символ строки
    //   ECX - счетчик для прохода по строке
    //   EDI - флаг, указывающий, был ли найден символ '*'
    MOV ESI, offset inputStr
    XOR ECX, ECX
    XOR EDI, EDI
 
    // Начало прохода по строке
    @LoopStart:
      // Загрузка текущего символа в AL
      MOV AL, BYTE PTR [ESI + ECX]
 
      // Проверка на завершение строки
      CMP AL, 0
      JE @EndOfString
 
      // Проверка на символ '*'
      CMP AL, '*'
      JE @AsteriskFound
 
      // Если символ '*' уже найден, то заменяем текущий символ на '-'
      CMP EDI, 1
      JNE @ContinueLoop
      MOV BYTE PTR [ESI + ECX], '-'
 
      @ContinueLoop:
        // Переход к следующему символу
        INC ECX
        JMP @LoopStart
 
      @AsteriskFound:
        // Устанавливаем флаг, что символ '*' был найден
        MOV EDI, 1
        // Переход к следующему символу после '*'
        INC ECX
        JMP @LoopStart
 
    // Конец строки
    @EndOfString:
  end;
 
  WriteLn(inputStr);
end.