Функция РасстояниеЛевенштейна(Строка1, Строка2)
    len1 = СтрДлина(Строка1)
    len2 = СтрДлина(Строка2)

    // Создаем матрицу (len1+1) x (len2+1)
    матрица = Новый Массив(len1 + 1)
    Для i = 0 По len1 Цикл
        матрица[i] = Новый Массив(len2 + 1)
    КонецЦикла

    // Инициализация первой строки
    Для j = 0 По len2 Цикл
        матрица[0][j] = j
    КонецЦикла

    // Инициализация первого столбца
    Для i = 0 По len1 Цикл
        матрица[i][0] = i
    КонецЦикла

    // Заполнение матрицы
    Для i = 1 По len1 Цикл
        Для j = 1 По len2 Цикл
            символ1 = Сред(Строка1, i, 1)
            символ2 = Сред(Строка2, j, 1)
            cost = ?(символ1 = символ2, 0, 1)

            матрица[i][j] = Мин(
                матрица[i-1][j] + 1,   // Удаление
                матрица[i][j-1] + 1,   // Вставка
                матрица[i-1][j-1] + cost  // Замена или совпадение
            )
        КонецЦикла
    КонецЦикла

    Возврат матрица[len1][len2]
КонецФункции